program help;
var i,n:integer;
begin
readln(n);
for i := 1 to n do begin
if i mod 2 = 0 then
writeln(i);
end;
end.
*Вводишь число, получаешь все четные числа до него*
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Решено
program help;
var i,n:integer;
begin
readln(n);
for i := 1 to n do begin
if i mod 2 = 0 then
writeln(i);
end;
end.
*Вводишь число, получаешь все четные числа до него*
var i,n,res:integer;
begin
readln(n);
for i := 1 to n do begin
if i mod 2 = 0 then
res:= res * i
writeln(res)
end;
end.
var i,n,res:integer;
begin
res := 1;
readln(n);
for i := 1 to n do begin
if i mod 2 = 0 then
res:= res * i;
end;
writeln(res)
end.