Предмет: Информатика,
автор: Рубали
Найти сумму и произведение всех нечетных двухзначных чисел (алгоритм и программу)
Ответы
Автор ответа:
0
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.
Интересные вопросы
Предмет: История,
автор: Аноним
Предмет: Қазақ тiлi,
автор: yachel
Предмет: Английский язык,
автор: Аноним
Предмет: Геометрия,
автор: Ilyalion