Найти произведение всех чётных чисел от 1 до 50. написать программу, которая решила бы эту .

Elenamikki Elenamikki    3   18.06.2019 16:50    3

Ответы
sesew228 sesew228  15.07.2020 09:12
Uses crt;
var i:integer;
 s:real;begin
s:=1;write(s);
for i:=1 to 50 do begin
i:=i+1;
s:=s*i;write('*',i);
end;
write (' = ',s);
end.
P.s. Программа написана на языке PascalABC, странный ответ она выдает потому, что в данном языке есть ограничения, и число, которое получается, выходит за диапазон данного значения.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика