Найти сумму кратных трем положительных элементов файла и полученый результат записать в новый файл

@Макська я · Регистрация: 30.03.2010

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

Создать файл из вещественных чисел и найти сумму кратных трем положительных элементов файла и полученый результат записать в новый файл

@Law[L]esS · 09.04.2010, 14:48

Pascal

var
 i,sum:integer;
 f:text;
begin
 assign(f,'kot.txt');
 reset(f);
 while not eof(f) do begin
   readln(f,i);
   if i mod 3 = 0 then sum:= sum + i;
 end;
 close(f);
 assign(f,'kot2.txt');
 rewrite(f);
 writeln(f,sum);
 close(f);
end.

@Макська я 1 / 1 / 0 Регистрация: 30.03.2010 Сообщений: 28
		1
	Найти сумму кратных трем положительных элементов файла и полученый результат записать в новый файл 09.04.2010, 14:38. Показов 1896. Ответов 1 Метки нет (Все метки) Создать файл из вещественных чисел и найти сумму кратных трем положительных элементов файла и полученый результат записать в новый файл 0

	09.04.2010, 14:48

Опции темы

Найти сумму кратных трем положительных элементов файла и полученый результат записать в новый файл

Решение