Определить в файле произведение остатков от деления на 4 тех элементов, которые не кратны четырём

@CyberNUB · Регистрация: 04.11.2012

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

Ввести файл F из 13 элементов. Определить в нём произведение остатков от деления на 4 тех элементов, которые не кратны четырём. Файл должен вводиться в ручную.

Kodzaev · 25.11.2012, 17:29

Pascal

Var
  f: File of Integer;
  i,k: Byte;
  x: Integer;
  p: Longint;
BEGIN
Assign(f,'input.dat');
Rewrite(f);
Writeln('Введите 13 элементов:');
For i:=1 to 13 do
begin
  Readln(x);
  Write(f,x);
end;
Reset(f);
p:=1;
For i:=0 to Filesize(f)-1 do
begin
  Seek(f,i);
  Read(f,x);
  If x mod 4<>0 Then
  begin
    Inc(k);
    p:=p*(x mod 4);
  end;
end;
Close(f);
If k=0 Then Writeln('Произведение = 0')
Else
Writeln('Произведение = ',p);
Readln
END.

@CyberNUB 1 / 1 / 0 Регистрация: 04.11.2012 Сообщений: 91
		1
	Определить в файле произведение остатков от деления на 4 тех элементов, которые не кратны четырём 25.11.2012, 15:46. Показов 1370. Ответов 1 Метки нет (Все метки) Ввести файл F из 13 элементов. Определить в нём произведение остатков от деления на 4 тех элементов, которые не кратны четырём. Файл должен вводиться в ручную. 0

Опции темы

Определить в файле произведение остатков от деления на 4 тех элементов, которые не кратны четырём

Решение