Паскаль.1.вывести на экран все четные числа от 1 до n.2.вывести на экран все трехзначные...

Question

Паскаль.
1.вывести на экран все четные числа от 1 до n.
2.вывести на экран все трехзначные числа.
3.вывести на экран четырехзначные числа оканчивающийся на 7.
4.вывести на экран все трехзначные и двухзначные числа сумма цифр которых равна девяти.

Answer 1

1)
var n,i:integer;
read(n);
for i:=1 to n do
if i mod 2=0 then writeln(i);
end.
2)var i:integer;
begin
for i:=100 to 999 do
write(i,' ');
end.
3)var i:integer;
begin
for i:=1000 to 9999 do
if i mod 10 = 7 then write(i,' ');
end.