Информатика, опубликовано 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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на