Предмет: Информатика,
автор: 311533a
Найти произведение всех чётных чисел от 1 до 50. Написать программу, которая решила бы эту задачу.
Ответы
Автор ответа:
0
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, странный ответ она выдает потому, что в данном языке есть ограничения, и число, которое получается, выходит за диапазон данного значения.
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, странный ответ она выдает потому, что в данном языке есть ограничения, и число, которое получается, выходит за диапазон данного значения.
Автор ответа:
0
i:=1 to 25 do
Автор ответа:
0
s:=s*a;
Автор ответа:
0
a:=a-2;
Автор ответа:
0
где s=1 )
Автор ответа:
0
Тоже неплохо )
Интересные вопросы
Предмет: Алгебра,
автор: okmolot8
Предмет: География,
автор: ZALKHAM2020
Предмет: Биология,
автор: dankzpost
Предмет: Информатика,
автор: Ponybear
Предмет: Математика,
автор: yuliasim