Помогите !11Используя цикл While, напишите программу вывода на экран в строку

Помогите !11Используя цикл While, напишите программку вывода на экран в строку первых N естественных чисел. Величина N вводится с клавиатуры.

Задать свой вопрос
Силягин Евгений
паскаль, бейсик,питон либо для тебя наобум?
Андрей Евдощук
паскаль пожалуйста
Ангелина Радушнова
Program A_1;Var n,t,s:integer;BeginWriteln('Введите естественное число n');Readln(n);s:=1;BeginWhile s<=n doWrite('s=',s)End;End.я сделала так, но не знаю верно ли
1 ответ

var N, x: integer;

begin

write('Введите число N: ');

readln(N);

x:= 0;

while x lt; N do

 begin

  x:= x + 1;

  write(x, ' ');

 end;

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт