Предмет: Информатика,
автор: mulyukov95
ПОМОГИТЕ Добрые люди. С клавиатуры вводятся дейстивительные числа и последовательно суммируются. Когда их сумма превысит 150, найти количество введенных чисел и их сумму. Через оператор FOR пожалуйста.
Ответы
Автор ответа:
0
Через for разве что так:
var i,k:integer; a,s:real;
begin
s:=0; k:=0;
for i:=1 to 2 do begin read(a); s:=s+a; k:=k+1; i:=1; if s>150 then break end;
write(k,' ',s)
end.
var i,k:integer; a,s:real;
begin
s:=0; k:=0;
for i:=1 to 2 do begin read(a); s:=s+a; k:=k+1; i:=1; if s>150 then break end;
write(k,' ',s)
end.
Похожие вопросы
Предмет: Физика,
автор: wadhooc
Предмет: Русский язык,
автор: умный321
Предмет: Химия,
автор: timkasoldino
Предмет: Информатика,
автор: Yunusov