Информатика, опубликовано 2018-08-22 23:00:35 by Гость

Написать программу которая подсчитывает произведение целых чисел введеных с клавиатуры. Произведение подсчитывается до тех пор пока вводятся числа в интервале -10 до +10

Ответ оставил Гость

Var a,p:integer;
begin
p:=1;
repeat
readln(a);
if (a>=-10) and (a p:=p*a;
until (a>10) or (awrite(p)
end.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.