Найти сумму и произведение всех нечетных двухзначных чисел (алгоритм и программу)

Question

Информатика

Фатьян

2 января, 21:50

Найти сумму и произведение всех нечетных двухзначных чисел (алгоритм и программу)

+2

Ответы (1)

Знаете ответ на вопрос?

Гертруда · Answer 1

Program z_number; uses crt; var pr, i:integer; begin clrscr; pr:=1; i:=11; {Первое двузначное нечетное число} repeat pr:=pr*i; i:=i+2; until (i>100) ; writeln ('Произведение двузначных нечетных чисел ', pr) ; readln; end.