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

@Unsad · Регистрация: 25.05.2009

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

Создать файл целых чисел. Найти сумму и количество компонент кратных пяти.

Я конечно понимаю что это возможно просто, но я пока не понимаю ничего(( Заранее спасибо!

@Puporev · 07.02.2010, 14:57

Pascal

uses crt;
var f:file of integer;
    c,k,s:integer;
begin
clrscr;
assign(f,'filef');
rewrite(f);
writeln('Введите в файл целые числа, окончание ввода 1.');
repeat
readln(c);
write(f,c);
until c=0;
clrscr;
writeln('Содержание файла F:');
reset(f);
k:=0;s:=0;
while not eof(f) do
 begin
  read(f,c);
  write(c,' ');
  if c mod 5=0 then
    begin
     k:=k+1;
     s:=s+c;
    end;
 end;
writeln;
write('Количество чисел, кратных 5=',k,' сумма=',s);
close(f);
readln
end.

@Unsad · 07.02.2010, 16:03 **[ТС]**

Огромное спасибо!!!

@Unsad 0 / 0 / 0 Регистрация: 25.05.2009 Сообщений: 6
		1
	Найти сумму и количество компонент файла, кратных пяти. 07.02.2010, 13:58. Показов 1247. Ответов 2 Метки нет (Все метки) Создать файл целых чисел. Найти сумму и количество компонент кратных пяти. Я конечно понимаю что это возможно просто, но я пока не понимаю ничего(( Заранее спасибо! 0

@Unsad 0 / 0 / 0 Регистрация: 25.05.2009 Сообщений: 6
	07.02.2010, 16:03 [ТС]	3
	Огромное спасибо!!! 0

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

Решение