Вывести числа от 1 до 20 и от 20 до 40 так же, просто цифры поменяй. var i:integer; begin writeln('1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20'); readln end.
Вывести квадраты чисел от 1 до 10 var i: integer; begin for i:=1 to 10 do writeln(i:4,' ',sqr(i):4); readln end.
Число n вводят с клавиатуры.Напечатать n раз число 5 (и оставшиеся 2 задачи можно этой же, просто поменяй кое-какие детали, подумай какие) var i,n:integer; begin writeln('Введите кол-во повторов числа: '); readln(n); for i:=1 to n do writeln('5'); readln end.
program raf105;
var a,b,X:integer;
begin
write('Ввод: ');
readln(a);
while a>0 do
begin
b:= a mod 10;
a:= (a-b) div 10;
if (b mod 2 = 0) and (b<>0)
then X:= X+b;
end;
writeln('Вывод: ',X);
end.
Написано на языке PascalABC.NET