Question

Программа в паскале, СРОЧНО!
Запросить a и b
Вывести числа от 1 до а, b строк
Например запросили 7 и 3
Вывести должно :
1234567
1234567
1234567
Как можно скорее, пожалуйста


​

Answer 1

Ответ:

program prog;

var a, b, i, j:Integer;

begin

ReadLn(a, b);

for i:= 1 to b do

begin

for j:= 1 to a do

begin

Write(j);

end;

WriteLn();

end;

end.