Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Lee35
25.11.2022 18:41 •
Информатика
Написать программу для паскаля: введите три числа (a,b,c). найдите сумму чисел и если сумма больше 100, выдать соответствующее сообщение и сумму. (пример: сумма больше 100=258)
Показать ответ
Ответ:
superbogdanova
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 оценок)
Ответ:
MimINL
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 оценок)
Популярные вопросы: Информатика
irinamiller93
30.04.2022 12:38
А) Попробуйте сформулировать содержание оптимального планирования для своей учебной деятельности. б) Что такое математическое программирование, линейное программирование?...
diana1157
04.11.2020 09:33
Всистеме программирования pascal abc выполните проверяемое p11 и p12 для исполнителя робот( закрасить клетки)...
yakovlevayaninaA
05.04.2021 07:05
Запиши программу на языке паскаль для: y=0,еслиx≤0x,если01. (y: 3: 0) запусти программу и введи значение x=-7...
lagapep
24.02.2023 22:22
Do smart tv provide access to the internet? ...
Homka2284
19.04.2021 14:04
Представьте в восьмиразрядном формате дополнительные коды двоичных чисел: 1) +1010; 2) -1001; 3) -11; 4) -11011....
martin37
01.11.2021 22:46
Найдите объем параллелепипеда, описанного около цилиндра, радиус которого 3см, высота 10см...
m1kaS7ark
01.11.2021 22:46
Записать рациональную дробь, содержащую х, допустимыми значениями, которой являються: а) все числа, кроме 6(3 варианта) б) все числа, кроме -4 и 0(3 варианта) в) все...
pazovamilanai
01.11.2021 22:46
Появление нового аллеля это результат : 1)генной мутации 2)хромосомной мутации 3)геномной мутации 4)модификационной изменчивости...
dzhulijamalish
01.11.2021 22:46
Написать сочинение как я провела это лето заранее !...
nasowmza
01.11.2021 22:46
Когда был принят закон о правах ребенка...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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