Введите ** экран двойные числа от 1 до К .

Question

Введите на экран двойные числа от 1 до К .

Comments

Двойные числа это 11, 22, 33 и т.д. Или 2, 4, 6 и т.д.

---

ну типо 1,1,2,2,3,3,4,4,5,5 и т.д

Answer 1

var i,k:integer;

begin

readln(k);

for i:=1 to k do

write(i,' ',i,' ')

end.