НАПИСАТЬ ПРОГРАММУ ДЛЯ PASCAL! [ за спам бан]
Используя цикл с ПОСТ-УСЛОВИЕМ решить задачу :
найти произведение четных чисел от 10 до 0
restIess:
ноль не включительно?
Ответы на вопрос
Ответил restIess
3
var
pr,i : integer;
begin
pr := 1;
i := 10;
repeat
pr *= i;
i := i - 2;
until i < 0;
writeln(pr);
end.
Новые вопросы