Написать программу поиска суммы положительных чисел, вводимых с клавиатуры. Как
только будет введено отрицательное число, суммирование прекратить.

Ответы (1)

Чараг 10.05.2025 4
Var
A,S: real;
Begin
S := 0;
Write('Введите последовательность чисел: ');
Read(A);
While A >= 0 do
Begin
S := S + A;
Read(A);
End;
WriteLn('S = ',S);
End.

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика:

ПРЕДМЕТЫ

Написать программу поиска суммы положительных чисел, вводимых с клавиатуры. Как только будет введено отрицательное число, суммирование прекратить.

Думаешь ответы не верны?

Написать программу поиска суммы положительных чисел, вводимых с клавиатуры. Как
только будет введено отрицательное число, суммирование прекратить.