• написать процедуру, которая выводит на экран в столбик все цифры переданного ей числа, начиная с первого

Ответы 1

  • procedure Number(number:integer);var len,i :integer;        str :string ;begin        str := intToStr(number);        len := length(str);        for i:= 1 to len do            writeln(str[i]);    end;
    • Автор:

      copeland
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years