Question

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

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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.

Answer 5

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

Answer 6

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