Найти сумму и произведение всех нечетных двухзначных - вопрос №1401874 от marylist2005 04.10.2022 21:23

Question

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

marylist2005 · 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....