Question

Кто понимает ! -распечатать в столбик таблицу умножения на 7 . составить программу. я сделала это так,оказалось не правильно : program tablica; var i: integer; begin i: =1; while(i< =10)do begin writeln('7*',i,'=',7*i); i: =i+1; end; end. надо он сказал как то рассписывать прям умножение,а как не объяснил,мне надо 4,вот мучаюсь! !

Answer 1

Var
    i: integer;

begin
    i := 1;
    while(i <= 10) do
    begin
        writeln('7 * ', i:2, ' = ', (7 * i):3);
        i := i + 1;
    end;
end.