petrovakat2003
24.02.2023 11:58

Склавиатуры поочередно вводятся целые числа. вычислите сумму положительных чисел. признаком конца ввода чисел является число 0.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
6e3yMHbIu1
05.10.2020 16:02
Var
A:integer;
S:real;
Begin
S:=0;
Repeat
Read(A);
if A>0 then S:=S+A;
Until A=0;
Write('S = ',S);
End.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота