Циклы. С клавиатуры вводятся числа и последовательно суммируются. Когда их сумма превысит 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.