Question

Даны целые числа K>0 и N (N = K+5). Вывести N раз число K. Через оператор while

Answer 1

Program n1;
var k,n,i: integer;
begin
readln(k);
n:=k+5;
i:=0;
while i<>n do
begin
i:=i+1;
write(k,' ');
end;
end.