• Как решить задачу в Pascal ABC: Задана последовательность целых чисел напишите программу которая определяет длину этой последовательности???

Ответы 6

  • какой класс и как давно изучаете?
    • Автор:

      libby87
    • 5 лет назад
    • 0
  • ты неправельно неписал...
  • var n, k: longint; begin assign(input,'input.txt'); reset(input); assign(output,'output.txt'); rewrite(output); n := 1; k := -1; while n <> 0 do begin readln(n); k := k + 1; end; writeln(k); end.
  • вот правельно
  • мне никто не сказал, что используется текстовый файл...
    • Автор:

      Óscar85
    • 5 лет назад
    • 0
  • Преобразуешь к строковому представлению через процедуру str(i,s), где i-последовательность, а s строка. И потом короч for n:=1 to length(s) do //length считывает строку до последнего элементаb:=b+1;writeln('Кол-во чисел ',b);end.
    • Автор:

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

Войти через Google

или

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

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

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