Паскаль 1. вывести на экран таблицу умножения а) 9 б) 2 2. вывести на экран все натуральные числа от 1 до 10 и соответствующие им степени числа 2: 1 2 2 4 3 8 4 16 10 1024 3. вывести на экран все натуральные числа от 3 до 15 и соответствующие им чётные числа, которые получаются из них умножением не 2: 3 6 4 8 5 10 15 30

1. а)

var a, i: integer;

begin

a:=9;

for i:=0 to 9 do begin

writeln (a*i);

end;

end.

1. б)

var a, i: integer;

begin

a:=2;

for i:=0 to 9 do begin

writeln (a*i);

end;

end.

2. (тут только вывод чисел от 1 до 10)

var i:integer;

begin

for i:=1 to 10 do begin

writeln (i);

end;

end.

3.

var i, a:integer;

begin

for i:=3 to 15 do begin  

a:=i*2;

writeln (i, ' соответствующее число = ' a);

end;

end.

Объяснение: