Question

Паскаль
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

Answer 1

Ответ:

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.

Объяснение: