Чем можно заменить var(k,n,h):=ReadInteger3; в этой программе
const
c='123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
begin
var(k,n,h):=ReadInteger3;
for var row:=1 to k do
for var height:=1 to h do
begin
var s:string:=c[height]*height+' ' *(h-height);
writeln(s*n);
end;
end.
Версия паскаля 3.3 сборка 1547
const
c='123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
begin
var(k,n,h):=ReadInteger3;
for var row:=1 to k do
for var height:=1 to h do
begin
var s:string:=c[height]*height+' ' *(h-height);
writeln(s*n);
end;
end.
Версия паскаля 3.3 сборка 1547
More Questions From This User See All
Answers & Comments
c='123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
var k,n,h:integer;
begin
read(k,n,h);
...