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

Question

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

Answer 1

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

Comments

непонятна

---

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

---

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

---

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.

---

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

---

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