Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Макуегщ
26.11.2022 15:09 •
Информатика
Даны целые числа a, b, c. написать программу, подсчитывающую сумму тех из данных чисел, которые больше нуля.
Показать ответ
Ответ:
тагієва
04.10.2020 15:09
На паскале:
program n1;
var a,b,c,s:integer;
begin
readln (a);
readln (b);
readln (c);
s:=0;
if (a>0) then
s:=s+a;
if (b>0) then
s:=s+b;
if (c>0) then
s:=s+c;
writeln (s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Артёмка12097
27.01.2020 03:53
Дано 3 значное число.найдите 1)среднее арифметическое и его цифры.2)сумму квадратов его цифр....
настя20162003
05.04.2023 09:18
Какие тэги (контейнеры) должны присутствовать в html- документе обязательно? какова логическая структура веб-страницы?...
annaleha2009
05.04.2023 09:18
Некое растровое изображение было сохранено в файле как 256-цветный рисунок. во сколько раз уменьшится информационный объем файла, если это же изображение сохранить...
DianaHreseva
22.05.2020 02:31
Некое растровое изображение было сохранено в файле как 256-цветный рисунок. во сколько раз уменьшится информационный объем файла, если это же изображение сохранить...
Rixoz
22.05.2020 02:31
Напишите программу, вычисляющую значение функции: у ={-1 при х 0, у ={0 при х=0, у={1 при х 0. пример входных данных -5 0 5 пример выходных данных у=-1 у=0 у=1...
ivkov2003
14.06.2021 16:36
Меркурий, находясь в наибольшей восточной элонгации, вступил одновременно в соединения с Марсом и Юпитером. Какие планетные...
ВикторияПан
14.06.2021 16:36
Каков максимальный размер астероида, с которого можно спрыгнуть в космос?...
valeriaurash20
14.06.2021 16:36
Сегодня на Земле наступило великое противостояние Марса. А могло ли сегодня на Марсе наблюдаться прохождение Земли по диску Солнца?...
11Misha201
14.06.2021 16:36
Сколько времени будет длиться на Северном полюсе восход Солнца? восход Луны?...
Даша182005
14.06.2021 16:36
Во сколько раз изменилась бы максимальная продолжительность полного солнечного затмения на Земле (7.5 мин), если бы наша планета вращалась...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
program n1;
var a,b,c,s:integer;
begin
readln (a);
readln (b);
readln (c);
s:=0;
if (a>0) then
s:=s+a;
if (b>0) then
s:=s+b;
if (c>0) then
s:=s+c;
writeln (s);
end.