Ребят в паскале набрать. Считать произведение (при этом в программе нужно указать P=1) введенных с
клавиатуры чисел до тех пор, пока не будет введено отрицательное число.
Составить программу.
деня1990
2
03.05.2020 23:06
0
Другие вопросы по теме Информатика
LANOVI
08.11.2020 18:11
Sveta1314
08.11.2020 18:13
katesgo
18.04.2020 00:56
asdfgh21
18.04.2020 00:55
baryshevskayaam
18.04.2020 00:54
ruslankz02
18.04.2020 00:54
bongtangirl
18.04.2020 00:54
Популярные вопросы
- проблемы рационального использования природных ресурсов Западной Сибири...
1 - Задание 1. Составьте во к стиху Абая Кунанбаева Жаз 5 во...
1 - А6 В предложениях 4—6 найдите глагол совершенного вида. 4) Под снежной...
3 - . Установи відповідність між вставними конструкціями і реченнями (розділові...
3 - По форме конституции бывают...
2 - НУЖНО! ОСОБЕННОСТИ СТРОЕНИЯ РЕЧНОЙ ДОЛИНЫ , РЕКИ ЕНИСЕЙ...
3 - Напишите два варианта вступления к сочинению на тему «Два события в рассказа...
2 - Прямокутник і квадрат мають рівні площі. Периметр прямокутника дорівнює...
3 - Висловити свої думки щодо головних героїв Маріо і чарівник (терміново...
1 - У чому ключова відмінність між екзистенціальною та корреспондентською...
2
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.