ВВЕСТИ Естественное ЧИСЛО И ВЫВЕСТИ В СТРОКУ ОТ 1 ДО ЭТОГО

ВВЕСТИ Естественное ЧИСЛО И ВЫВЕСТИ В Строчку ОТ 1 ДО ЭТОГО ЧИСЛА

Задать свой вопрос
2 ответа
Var
 n,i:integer;
begin;
readln(n);
for i:=1 to n do
write(i:4);
end.
Var i,a : Integer;
Begin
  Readln(a);
  For i:=1 to a do Write(i);
end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт