Циклы. С клавиатуры вводятся числа и последовательно суммируются. Когда их сумма превысит 150, вывести сумму - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

С клавиатуры вводятся действительные числа и последовательно суммируются. Когда их сумма . превысит 150, найти сумму введенных чисел. + блок схему

Решение задачи: «Циклы. С клавиатуры вводятся числа и последовательно суммируются. Когда их сумма превысит 150, вывести сумму»

textual
Листинг программы
program primer;
 uses crt;
 var a,s:Integer;
begin
repeat
write('ââåäèòå ÷èñëî = ');
readln(a);
s:=s+a;
until s>150;
writeln('ñóììГ* Г°Г*ГўГ*Г* = ', s);
end.

Оцени полезность:

7   голосов , оценка 3.714 из 5
Похожие ответы