Регистрация
vova25051
06.09.2021 20:17
Информатика
Есть ответ 👍

Ребят в паскале набрать. Считать произведение (при этом в программе нужно указать P=1) введенных с
клавиатуры чисел до тех пор, пока не будет введено отрицательное число.
Составить программу.

261
347
Посмотреть ответы 2

Ответы на вопрос:

anny60
anny60
4,4(56 оценок)

var

a:boolean;

p,new:integer;

begin

 a:=TRUE;

 p:=1;

 while a do

 begin

 readln(new);

 if new >= 0

 then p:= p * new

 else a:=FALSE;

 end;

 writeln(p);

end.

ммм298
ммм298
4,5(22 оценок)
Андрей был с серафимой на концерте женя с полиной в кино дима с розой в театре боря с олей на выставке

Популярно: Информатика