Cоставить программу, выводящую ** экран таблицу умножения ** 4, Qbasic, используя цикл.

Question

Cоставить программу, выводящую на экран таблицу умножения на 4, Qbasic, используя цикл.

Answer 1

на Paskal 7.0

program 777;

uses crt;

var a,b,c,d,s,i,j:integer

begin

a:=4 

for i:=1 to 10 do begin

s:=a * i;

writeln(a '*' i '=' s); 

end;

end.