Запросить с клавиатуры натуральное число n. Используя циклы, вывести через

пробел n раз на экран цифру 1.

Question

Полина

25 августа, 21:09

+3

Ответы (1)

Знаете ответ на вопрос?

Лаврушка · Answer 1

Program z1;

var

n, i:integer;

begin

writeln ('Введите число n:') ;

readln (n) ;

For i:=1 to n do

write ('1 ') ;

end.

Запросить с клавиатуры натуральное число n. Используя циклы, вывести черезпробел n раз на экран цифру 1.