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

Ответы

Ответ дал: 13nisa13
0

var i,k:integer;

begin

readln(k);

for i:=1 to k do

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

end.

Похожие вопросы