Напишите программу которая вводит с клавиатуры числа до тех пор пока не будет введено число 0. в конце работы программы на экран выводится сумма и произведение введенных чисел.

Всенорм1111 Всенорм1111    2   01.09.2019 00:10    1

Ответы
гульназ85 гульназ85  06.10.2020 08:40
Program z1;
var a,i,sum,p:integer;
Begin
sum:=0;
p:=1;
repeat
begin
read(a);
sum:=sum+a;
p:=p*a;
until a=0
end;
writeln(sum,p);
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика