Сформировать типизированный файл по формуле, найти произведение чисел, кратных 2 и 10

@motocross97 · Регистрация: 18.09.2013

Помогите решить задачу, пожалуйста.
Типизированные файлы.
А) Формировать М1(из 10 компонент) первая половина по формуле 3i, вторая по формуле i+3
B) Найти в M1 произведение чисел кратных 2 и 10
Заранее спасибо!

@ZX Spectrum-128 · 17.04.2015, 08:54

Pascal

{
Типизированные файлы.
А) Формировать М1(из 10 компонент) первая половина по формуле 3i,
вторая по формуле i+3
B) Найти в M1 произведение чисел кратных 2 и 10}
const
  n=10;
var
  m1:file of integer;
  i:integer;
  p:longint;
begin
  assign(m1,'m1.dat');
  rewrite(m1);
  for i:=1 to n div 2 do
    write(m1,3*i);
  for i:=n div 2 +1 to n do
    write(m1,i+3);
  close(m1);
 
  p:=1;
  writeln('Содержимое файла:'); 
  reset(m1);
  while not eof(m1) do
    begin
      read(m1,i);
      write(i:5);
      if (i mod 2=0) and (i mod 10=0) then
        p:=p*i;
    end;
  writeln;
  close(m1);
  writeln('Прозведение: ',p);
  readln;
end.

@motocross97 1 / 1 / 0 Регистрация: 18.09.2013 Сообщений: 26
		1
	Сформировать типизированный файл по формуле, найти произведение чисел, кратных 2 и 10 15.04.2015, 10:38. Показов 1077. Ответов 1 Метки нет (Все метки) Помогите решить задачу, пожалуйста. Типизированные файлы. А) Формировать М1(из 10 компонент) первая половина по формуле 3i, вторая по формуле i+3 B) Найти в M1 произведение чисел кратных 2 и 10 Заранее спасибо! __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Сформировать типизированный файл по формуле, найти произведение чисел, кратных 2 и 10

Решение