Помогите, пожалуйста
Составьте программу, вычисляющую произведение чётных двузначных чисел.
В паскаль
Ответы
Ответ дал:
1
var i: integer;
p: real;
begin
p:=1;
for i:=10 to 99 do
if i mod 2=0 then p:=p*i;
write ('произведение равно: ',p);
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад