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

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