НАПИСАТЬ ПРОГРАММУ ДЛЯ PASCAL! [ за спам бан] Используя цикл с ПОСТ-УСЛОВИЕМ решить задачу :
найти произведение четных чисел от 10 до 0

vovashkaruba vovashkaruba    1   31.01.2021 19:19    1

Ответы
bezimeni3 bezimeni3  31.01.2021 19:20

var

pr,i : integer;

begin

pr := 1;

i := 10;

repeat

pr *= i;

i := i - 2;

until i < 0;

writeln(pr);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика