Найти количество четных

@Дюков ЕВ · Регистрация: 16.11.2013

Author24 — интернет-сервис помощи студентам

Найти количество четных элементов в последовательности 1!+2!+3!+4!+..+..+n

@coOl_ExXtaZzY · 07.12.2013, 20:48

Pascal

program chisla;
var x,y,a,b,n : integer;
begin
writeln ('Vvedi n');
readln(n);
x:=0;
a:=1;
b:= 0;
while x<=n do begin
x:=x+a;
y:=x mod 2;
if y=0 then b:= b+1;
end;
writeln(b);
end.

@Дюков ЕВ 5 / 5 / 0 Регистрация: 16.11.2013 Сообщений: 47
		1
	Найти количество четных 07.12.2013, 11:57. Показов 999. Ответов 1 Метки нет (Все метки) Найти количество четных элементов в последовательности 1!+2!+3!+4!+..+..+n 0

	07.12.2013, 20:48

Найти количество четных

Решение