Предмет: Информатика,
автор: lutchak19
15 задание. Помогите пожалуйста!!! ДАЮ 33 балла
Приложения:
privatBuy:
Язык?
паскаль
Ответы
Автор ответа:
0
Ответ:
var
a, b, c, sum : integer;
begin
readln(a, b, c);
if(a > 0) then sum := sum + a;
if(b > 0) then sum := sum + b;
if(c > 0) then sum := sum + c;
writeln(sum);
end.
Объяснение:
спасибо
Интересные вопросы
Предмет: Русский язык,
автор: Mimikа
Предмет: Окружающий мир,
автор: Аноним
Предмет: Русский язык,
автор: аллллллллляяяя
Предмет: Математика,
автор: a2514nna
Предмет: Русский язык,
автор: Fraiche82i