Даны целые числа a, b, c. Написать программку, подсчитывающую сумму тех

Даны целые числа a, b, c. Написать программку, подсчитывающую сумму тех из данных чисел, которые больше нуля.

Задать свой вопрос
1 ответ
На паскале:
program n1;
var a,b,c,s:integer;
 begin
readln (a);
readln (b);
readln (c);
s:=0;
if (agt;0) then
s:=s+a;
if (bgt;0) then
s:=s+b;
if (cgt;0) then
s:=s+c;
writeln (s);
end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт