Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Vitalikebati
18.10.2022 06:01 •
Информатика
Написать программу для паскаля: введите три числа (a,b,c). найдите сумму чисел и если сумма больше 100, выдать соответствующее сообщение и сумму. (пример: сумма больше 100=258)
Показать ответ
Ответ:
StacyZviozdohkina
03.10.2020 17:07
//Pascal ABC.NET v3.1 сборка 1219
Var
a,b,c:integer;
begin
read(a,b,c);
if a+b+c>100 then writeln('Сумма больше 100=',a+b+c) else writeln('Сумма=',a+b+c);
end.
Пример ввода:
200
50
8
Пример вывода:
Сумма больше 100=258
0,0
(0 оценок)
Ответ:
Лизок2020
03.10.2020 17:07
Program ff;vara,b,c,s:integer;begin readln(i,k,t);s:=a+b+c;begin if (s>100) then writeln ( 'сумма больше 100=', s)else writeln(s);end;end.
0,0
(0 оценок)
Популярные вопросы: Информатика
vitaming
09.02.2022 15:19
Нам задали проходить всероссийскую контрольную работу о информационной безопасности на сайте единого урока. скажите , учитель может помимо сертификата узнать мои результаты. например...
Tkaiem
06.02.2021 20:20
Опыт информатизации, пример в любой стране...
7sergeya
21.01.2022 07:31
Напишите код программы который будет вычислять периметр прямоугольника на языке Python...
MadalinaT
30.03.2020 02:06
Задача из ЕГЭ. Код писать на Python3. Андрей готовился к ЕГЭ по информатике и встретил в демо-версии ЕГЭ 2015 года такую задачу: Автомат получает на вход четырёхзначное число. По этому...
Мур214
10.06.2020 19:20
1. Найдите ошибки в записи операторов присваивания: Var g, h:Byte; f:Real; c, q:Char; b,e:Boolean; Begin g:=5.67; f:=g+3.789; c:=’t’; b:=true; e:=h 10; q:=c End. 2. Найдите неверные...
Бубух
10.04.2021 00:30
1. таблицу истинности: отрицания (не а) 2. дописать закон и доказать: a+ab= 3. выражение: (а+а(нев)+(неа)в)(а+(неа)с+(неа)в+ав(нес))...
marsidd
10.04.2021 00:30
ответьте на вопросы: 1)для чего группируют фигуры? какой командой это можно сделать? 2)как переместить (скопировать)обьект? 3)как удалить обьект? 4)можно ли выделить одновременно несколько...
Лилиана2001256
10.04.2021 00:30
Установите соответствие между понятиями и определениями. укажите соответствие для всех 3 вариантов ответа: 1) линия, применяемая для наглядного изображения зависимости одной величины...
dasha1975
08.01.2022 08:58
Представить в виде степени с основанием 3 число 25...
простахачууусписать
18.01.2020 12:13
Для цепи, состоящей из последовательных r, l и с, определить величины падения напряжения на этих элементах при резонансе, если к цепи подводится переменное напряжение u = 220 b, r...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var
a,b,c:integer;
begin
read(a,b,c);
if a+b+c>100 then writeln('Сумма больше 100=',a+b+c) else writeln('Сумма=',a+b+c);
end.
Пример ввода:
200
50
8
Пример вывода:
Сумма больше 100=258