Дан текстовый файл. Подсчитать количество строк в данном файле. Результат вывести на форму.
5-9 класс
|
program test;
var
source: text;
name: string;
line: string;
count: integer;
begin
write('write name of file (for example 1.txt): ');
read(name);
assign(source, name);
reset(source);
count := 0;
while not eof(source) do
begin
readln(source, line);
count := count + 1;
end;
writeln('Lines count: ', count);
close(source);
end.
Другие вопросы из категории
Б) КБ= байт=12288 бит
В) КБ= байт=213 бит
Г) ГБ=1536 МБ = Кбайт
Д) 512 Кбайт= байт= бит
Заполните таблицу: запишите для каждого подмножества одно дополнительное свойство.
Множество
хранить, организовывать данные и предоставлять к ним доступ-
это
Дан фрагмент программы (все используемые переменные имеют целый тип данных).
на языке Паскальна языке Бейсик
P:=1; A:=1;P=1: A=1
while P<16 doWHILE P<16
begin A=2*A
A:=2*A; P:=P*A; P=P*A
end;WEND
Определите, сколько раз выполнится тело цикла.
1.3 2.4 3.бесконечно много раз 4.16 5.0
Читайте также
2)В диапазоне от 0 до 50 подсчитать количество чисел сумма цифр которых равна 3.
г)типом данных
помогите плииз)
файла.Результат поместить в файл g.
дан файл f компоненты которого являются целыми числамию Найти наибольший и наименьший из компонентов файла.результат поместить в файл g
ДАн файл f компоненты которого являются целыми числами найти количество чётных чисел среди компонентов.результат поместить в файл g
Дан файл F компоненты которого являяются целыми числами.записать в файл g все чётных числа файла f
Дан файл F компоненты которого являяются целыми числами переписать компоненты файла f в файл g,так чтобы в файле сначала шли отрицательные а потом положительные числа.
тока дана строка символов, длина которой не превышает 255.