Найдите произведение Пятизначных чисел кратных 2000 В исполнителе ABC Pascal
Найдите произведение Пятизначных чисел кратных 2000
В исполнителе ABC Pascal
Гость
Ответ(ы) на вопрос:
ГостьPascalABC не позволяет считать столь большие числа, но если бы он позволял делать это, то следующий код работал бы:
program z1;vara, i: longint;begina := 1;
i := 10000;
while (i < 100001) dobegina := a * i;i := i + 2000;end;writeln(a);end.
Не нашли ответ?
Похожие вопросы