Найти произведение чисел кратных 5 в диапазоне от 1 до 20

5*10*15*20=15000////

берем цикл от 1 до 50, идем и проверяем все числа на кратность 9, если кратны, то пишем число и добавляем к сумме (и умножаем произведение).

 

var

  sum, mul, i : integer;

begin

    sum : = 0; mul : = 1;

  for i : = 1 to 50 do

    if i mod 9 = 0 then

    begin

      write (i, '   ');

      sum : = sum + i;

      mul : = mul * i;

    end;

  writeln;

  writeln ('sum = ', sum);

  writeln ('mul = ', mul);

end.

начало отсчета лет - 1984 год. надо написать программу (pascalabc). вводите год, нужный вам, отнимаете от него 1984 и находите остаток от деления на 12. последовательность животных в 12-летнем цикле - крыса, корова, тигр, заяц, дракон, змея, лошадь, овца, обезьяна, курица, собака, свинья. то есть если при делении на 12 остаток равен 0, значит введенный год - год крысы, если 1 - год коровы и т.д.

программа:  

var a,b,c: longint; beginwrite('введите год: '); readln(a); c: =a-1984; b: =c mod 12; case b of0: writeln(a,' - год крысы'); 1: writeln(a,' - год коровы'); 2: writeln(a,' - год тигра'); 3: writeln(a,' - год зайца'); 4: writeln(a,' - год дракона'); 5: writeln(a,' - год змеи'); 6: writeln(a,' - год лошади'); 7: writeln(a,' - год овцы'); 8: writeln(a,' - год обезьяны'); 9: writeln(a,' - год курицы'); 10: writeln(a,' - год собаки'); 11: writeln(a,' - год свиньи'); end; end.