Question

НАпишите программу вывода четных чисел от 2 до 100 включительно

Answer 1

const N=99;              var A: array[1..N] of integer;               i:integer;          begin            for i:=1 to N do             A[i]:=i+1;           for i:=1 to N do     if A[i] mod 2=0 then writeln(A[i]);           end.           

Answer 2

const N=99;
var A: array[1..N] of integer;
i:integer;
begin
for i:=1 to N do
A[i]:=i+1;
for i:=1 to N do
if A[i] mod 2=0 then writeln(A[i]);
end.