Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
olgadulebenez
19.01.2023 01:03 •
Информатика
Написать программу для паскаля: введите три числа (a,b,c). найдите сумму чисел и если сумма больше 100, выдать соответствующее сообщение и сумму. (пример: сумма больше 100=258)
Ответ:
Polybel
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 оценок)
Ответ:
irabirykova18
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 оценок)
Популярные вопросы: Информатика
Натали2004абвг
20.01.2021 10:03
3 во всего, тестовая форма кто шарит!...
pughluy
22.02.2020 05:50
Program n_10 var y, a, b, c: integer; begin writeln ( Нахождение наибольшей из трёх величин ); write ( Введите a, b, с ); readln (a, b, c); y:=a; if (b y) then y:=b; if (c y)...
Хованский87
26.12.2022 06:00
Решите эту самостоятельную, ...
Marina22111
09.10.2020 05:44
На складе 150m мониторов, из них 32m – DELL, 22m – AOC, 41m – LG и 11m – BenQ, где m – основание некоторой системы счисления. В какой системе счисления учитывали компьютеры...
dhdhhd55
11.08.2021 17:42
Выбери программу, которая вычисляет длину гипотенузы. var n,z,p:real; begin writeln( Введи длины катетов n и z ); readln(n,z); p:=n*n+z*z; writeln( p= ,c:8:2); readln; end....
Artem0317q
27.01.2023 11:29
1. Чему равен остаток от деления числа N на 100? int N = 123; int d12 = N % 100;...
azzzzzi208
19.04.2020 05:06
Выбери программу, которая вычисляет длину гипотенузы. var n,z,p:real; begin writeln( Введи длины катетов n и z ); readln(n,z); p:=n*n+z*z; writeln( p= ,c:8:2); readln; end....
stasbrega
08.12.2022 00:21
Решите через программу паскаль На вход поступают положительные и отрицательные числа. Ввод осуществляется до тех пор, пока не будет введен нуль. Найти сумму всех четных чисел,...
sofamalaya
21.01.2021 12:14
Напишите программу, в которой осуществляется ввод целых чисел до тех пор, пока не будет введена единица, и подсчет произведения положительных чисел, используя оператор repeat...
MaushaLate86
28.01.2021 13:54
Выручайте,от Всего лишь 1 задание на паскале Сформировать и вывести на экран арифметическую последовательность из 6 элементов, заданных формулой: an = an-1 + 24 ....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
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