Question

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

Answer 1

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, странный ответ она выдает потому, что в данном языке есть ограничения, и число, которое получается, выходит за диапазон данного значения.

Answer 2

i:=1 to 25 do

Answer 3

s:=s*a;

Answer 4

a:=a-2;

Answer 5

где s=1 )

Answer 6

Тоже неплохо )