Ответ:
program z;
var n:single; k, c:byte;
begin
read(n, k);
for c:=0 to k do
writeln(n);
read();
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
program z;
var n:single; k, c:byte;
begin
read(n, k);
for c:=0 to k do
writeln(n);
read();
end.