Дан файл целых чисел.Вывести кол-во содержащихся в нем чисел

@timber1 · Регистрация: 01.12.2013

Студворк — интернет-сервис помощи студентам

@Nazarrrka · 12.12.2013, 01:23

Pascal

program CounterPro;
uses crt;//Подключаем модуль
var counter,tmp:Integer;    
begin
    counter:=0;
    assign(input, 'input.txt');//Название файла
    reset(input);
    while not eof(input) do begin//Читаем файл пока не конец
        read(tmp);//Присваиваем временной переменной считаное значения
        inc(counter);//Обновляем счетчик
    end;
    write(counter);//Выводим результат
    readkey;//Пауза программы
end.

@timber1 0 / 0 / 0 Регистрация: 01.12.2013 Сообщений: 9
		1
	Дан файл целых чисел.Вывести кол-во содержащихся в нем чисел 11.12.2013, 20:36. Показов 1244. Ответов 1 Метки нет (Все метки) Дан файл целых чисел.Вывести кол-во содержащихся в нем чисел 0

Опции темы

Дан файл целых чисел.Вывести кол-во содержащихся в нем чисел

Решение