Ответ: Благодарю
Ответ:
program raf105;
var a,n,i: integer;
begin
write(‘n = ‘);
readln(n);
write(‘a = ‘);
readln(a);
for i:=1 to n do
writeln(a);
end.
PascalABC 3.4.2
Ответ: Благодарю
Ответ:
program raf105;
var a,n,i: integer;
begin
write(‘n = ‘);
readln(n);
write(‘a = ‘);
readln(a);
for i:=1 to n do
writeln(a);
end.
PascalABC 3.4.2