С клавиатуры вводятся числа, определить сумму и количество, пока не введено 98
С клавиатуры вводятся числа, определить сумму и количество, пока не введено 98
Гость
Ответ(ы) на вопрос:
Гостьvar a,s,k:integer;
begin
write('a='); readln(a);
s:=0;k:=0;
while a<>98 do
begin
s:=s+a; k:=k+1;
write('a='); readln(a);
end;
writeln('k=',k,' s=',s);
end.
Пример:
a=15
a=7
a=9
a=2
a=98
k=4 s=33
Не нашли ответ?
Похожие вопросы