Паскаль 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.
Объяснение: