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

Question

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

Comments

VarK,N,i:integer;BeginWrite('K = ');ReadLn(K);N:=K+5;i:=0;While i<N do Begin i:=i+1; Write(K); End;End.

---

Спасибо большое!

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.