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

Question

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

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.