1)составить программу и подсчитать количество чисел которые делятся 3 без остатка в интервале {15,60}. 2)составить программу и найти произведение чисел от 2 до 20.

1

Ответы и объяснения

Лучший Ответ!
2012-02-28T18:59:54+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

var s,i:integer;

BEGIN

  for i := 15 to 60 do

    if i mod 3 = 0 then s:= s +1;

  writeln(s);

END.

 

var s,i:integer;

BEGIN

  s:=1;

  for i := 2 to 20 do

    s:= s *i;

  writeln(s);

END.