Question

Составьте программу которая Выводит на экран 10 строк таблицы умножения на 2​ в Pascal ABC

Answer 1

Ответ:

program abc;

const N=10;

const C=2;

var a, k:Integer;

I:integer;

begin

A:=0;

for i:=1 to N do begin

A:=A+1;

K:=A*C;

writeln(A,'*',C,'=',K)

End;

End.

Answer 2

Ответ:

var i:integer;

begin

for i:=1 to 10 do writeln(i:2,' * 2 = ',i*2)

end.