Предмет: Информатика,
автор: НатсуДрагнил
Как решить задачу в Pascal ABC: Задана последовательность целых чисел напишите программу которая определяет длину этой последовательности???
Ответы
Автор ответа:
0
Преобразуешь к строковому представлению через процедуру str(i,s), где i-последовательность, а s строка. И потом короч
for n:=1 to length(s) do //length считывает строку до последнего элемента
b:=b+1;
writeln('Кол-во чисел ',b);
end.
for n:=1 to length(s) do //length считывает строку до последнего элемента
b:=b+1;
writeln('Кол-во чисел ',b);
end.
Автор ответа:
0
какой класс и как давно изучаете?
Автор ответа:
0
ты неправельно неписал...
Автор ответа:
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.
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.
Автор ответа:
0
вот правельно
Автор ответа:
0
мне никто не сказал, что используется текстовый файл...
Интересные вопросы
Предмет: Биология,
автор: zangulzusanova
Предмет: Алгебра,
автор: Аноним
Предмет: Математика,
автор: zhaslahkasym
Предмет: Математика,
автор: Аноним
Предмет: Химия,
автор: Аноним