Определить в файле произведение остатков от деления на 4

@xersin · Регистрация: 29.11.2014

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

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

@Constantin Cat · 28.02.2015, 13:57

Pascal

program q01;
  var
  a,b,c:integer;
  d:text;
  begin
    assign(d,'F.txt');{связываем файл}
    reset(d);{сбрасываем в начало}
    c:=1;{начальное значение}
    for a:=1 to 13 do{цикл ввода}
      begin
        readln(d,b);{читаем значение}
        if(b mod 4)>0 then c:=c *(b mod 4);{выполняем задание}
      end;
    close(d);{освобождаем файл}
    writeln('result:=',c);{выводим результат}
  end.

Удачи!

@xersin 0 / 0 / 0 Регистрация: 29.11.2014 Сообщений: 12
		1
	Определить в файле произведение остатков от деления на 4 28.02.2015, 13:40. Показов 984. Ответов 1 Метки нет (Все метки) Ввести файл F из 13 элементов. Определить в нём произведение остатков от деления на 4 тех элементов, которые не кратны четырём. 0

Опции темы

Определить в файле произведение остатков от деления на 4

Решение