Программа в паскале, СРОЧНО!
Запросить a и b
Вывести числа от 1 до а, b строк
Например запросили 7 и 3
Вывести должно :
1234567
1234567
1234567
Как можно скорее, пожалуйста
Запросить a и b
Вывести числа от 1 до а, b строк
Например запросили 7 и 3
Вывести должно :
1234567
1234567
1234567
Как можно скорее, пожалуйста
More Questions From This User See All
Answers & Comments
Ответ:
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.