Дан текстовый файл, содержащий целые числа. Найти количество чисел в ф...

Автор
Валера 2016-08-15 11:49
Условие:

Дан текстовый файл, содержащий целые числа. Найти количество чисел в файле и их сумму.


Информатика 8 класс
Решить задание

ОТВЕТЫ

Var f: Text; n, s, e: integer; begin n := 0; s := 0; Assign(f, 'input.txt'); Reset(f); while not Eof(f) do begin readln(f,e); n := n + 1; s := s + e end; Close(f); writeln('В файле ', n, ' чисел; их сумма равна ', s) end.


Новые задачи

Аэростат, наполненный газом при нормальном атмосферном давлении, поднялся на высоту, где его объём увеличился в 1,3 раза. Каким стало давление газа? В Перейти

Точка движется по координатной прямой согласно закону х(t)=7 + 5t – e^4-t, где x(t) – координата точки в момент времени t. Найдите скорость точки при Перейти

помогите срочно надо алгем 1) log2x=6 3) log0,5(3x+7)+log0,5(–x–1)=0 Перейти

Городские власти приняли решение высадить 300 тополей на на улице города в северной части города посадили 116 деревья в Южная 113 остальные посадили в Перейти

Войти с помощью:

ВконтактеВконтакте