Как решить задачку в Pascal ABC: Задана последовательность целых чисел напишите

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

Руслан Сулевский 2019-08-31 14:02:10

непонятна

Екатерина Аладышкина 2019-08-31 14:10:34

какой класс и как издавна исследуете?

Alina Krupnina 2019-08-31 14:18:27

ты неправельно неписал...

Margarita Ganuzina 2019-08-31 14:21:22

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.

Ден Петере 2019-08-31 14:25:04

вот правельно

Аделина 2019-08-31 14:34:18

мне никто не произнес, что употребляется текстовый файл...

О проекте

Как решить задачку в Pascal ABC: Задана последовательность целых чисел напишите

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