Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Polin1Zayxh
14.04.2023 18:42 •
Информатика
Паскаль. написать 2 любых числа,найти их сумму,создать условие"если сумма < 5 ввести , если > 5 ввести пока"
Показать ответ
Ответ:
Мухамед5Ли
02.10.2020 18:08
// Pascal ABC.NET
var
n1, n2, sum : integer;
begin
sum := 0;
readln(n1, n2);
sum := n1 + n2;
if sum < 5 then
writeln('Привет');
if sum > 5 then
writeln('Пока');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
David3464
03.03.2021 20:46
ПИТОН Заполните массив случайными числами. Определить, есть ли в нем элементы с одинаковыми значениями, не обязательно стоящие рядом. Пример: Массив: 3 2 1 3 2 5 Есть:...
dobryninaaleksp08b5v
15.03.2020 09:09
как это решать? Перед вами фрагмент программы, обрабатывающей одномерный целочисленный массив A с индексами от 0 до 20. Известно, что в начале выполнения этого фрагмента...
angelikamaxowoz4v
13.12.2022 20:41
После преобразования растрового 256-цветного графического файла в чёрно-белый формат (без градаций серого) размер файла стал равен 20 байтам. Каков размер исходного файла....
kakaha228oleg
12.09.2021 20:28
Подобрать коммутационное оборудование для проведения выставки информационных технологий. Требуется обеспечить зону покрытия WiFi на всей территории выставки, а также возможность...
Варежкамяу
18.01.2021 09:36
ответить нa во Ты видел, как нагло на меня смотрит этот верзила с 3 курса, ну, ничего, посмотрим, как он завтра будет ходить по колледжу, ведь сегодня я про него всякую...
дядялёняййццйуйу
04.03.2022 11:39
1.Сферы жизниВыделите цветом все правильные ответы.Какие сферы жизни испытывают изменения при переходе на уровень информационного общества?сфера образованиясфера воспитания...
Atems564
27.01.2023 21:45
найти ошибку в коде#include stdafx.h #include #include #include using namespace std;int randInt(int a, int b){ return a + rand() % (b - a + 1);}void printArray(int* arr,...
Kjabarovsk
25.05.2023 08:14
Дан линейный массив из десяти случайных чисел Random(26)+25. На языке программирования Pascal напишите программу для:- 1. Нахождения суммы первого, пятого и последнего...
ATimofeeva
01.10.2022 12:30
С какого возраста вы можете создать “Стандартную учетную запись” на сайтах gosuslugi.ru и mos.ru? С 12 лет (по свидетельству о рождении) С 14 лет (после получения паспорта...
kmarkechko
30.03.2020 02:54
Выполните алгоритм, начиная с маркера 0, и выделите числа, маркеры которых были перекрашены Кузнечиком.Выделите числа, маркеры которых были перекрашены Кузнечиком.(заранее...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
n1, n2, sum : integer;
begin
sum := 0;
readln(n1, n2);
sum := n1 + n2;
if sum < 5 then
writeln('Привет');
if sum > 5 then
writeln('Пока');
end.