Получить в файле g все компоненты файла f, являющиеся четными числами

@Creddy · Регистрация: 21.03.2014

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

Дан файл f, компоненты которого являются целыми числами.
Получить в файле g все компоненты файла f:
являющиеся четными числами;
делящиеся на 3 и не делящиеся на 7;
являющиеся точными квадратами;

@CodeR · 12.04.2014, 10:54

Pascal

Var f,g:file of integer;
    i,m:integer;
Begin
    Randomize;
    Assign(f,'in.dat');Rewrite(f);
    writeln('Файл F');
    For i:=1 to random(11)+10 do
    Begin
      m:=random(21);
      write(f,m);
      write(m:3);
    End;
    Reset(f);
    Assign(g,'out.dat');Rewrite(g);
    writeln;
    writeln('Файл G');
    For i:=1 to FileSize(f) do
    Begin
      read(f,m);
      if (m mod 2 = 0) or ((m mod 3 =0) and (m mod 7 <> 0)) or (frac(sqrt(m))=0) then
      Begin
        write(g,m);
        write(m:3);
      End;
    End;
    Close(f);Close(g);
    readln;
End.

@Creddy 0 / 0 / 0 Регистрация: 21.03.2014 Сообщений: 4
		1
	Получить в файле g все компоненты файла f, являющиеся четными числами 11.04.2014, 19:29. Показов 4962. Ответов 1 Метки нет (Все метки) Дан файл f, компоненты которого являются целыми числами. Получить в файле g все компоненты файла f: являющиеся четными числами; делящиеся на 3 и не делящиеся на 7; являющиеся точными квадратами; 0

	12.04.2014, 10:54

Получить в файле g все компоненты файла f, являющиеся четными числами

Решение