Question

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

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.