Отыскать творенье всех чётных чисел от 1 до 50. Написать программку,

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

Любовь Казьмичева 2019-09-03 07:33:22

У меня АВс и выдают ошибку ) Тогда лучше с помощью if эт решить )

Виолетта Ялтуновская 2019-09-03 07:42:19

If i mod 2 = 0 then s:=s*i;

Арина Колениченко 2019-09-03 07:51:29

Можно и так

Антон Капелька 2019-09-03 07:55:35

:)

Альбина 2019-09-03 07:59:03

есть ещё вариант, что от 1 до 25, и некой переменной присвоить(допустим а) наше значение. Ну а дальше :a:=50;

Sofija Pyreva 2019-09-03 08:02:57

i:=1 to 25 do

Jelvira Solonicyna 2019-09-03 08:04:16

s:=s*a;

Вера 2019-09-03 08:07:48

a:=a-2;

Amelija Kolobrodova 2019-09-03 08:12:26

где s=1 )

Женя Юренина 2019-09-03 08:19:49

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

О проекте

Отыскать творенье всех чётных чисел от 1 до 50. Написать программку,

Добро пожаловать!