60

операторы цикла. написать только программы к двум .

теги(читать не обязательно):

операторы цикла. карточка 7. составьте блок-схемы и программы для решениея следующих .

1. определите и выведите на экран количество чисел между 20 и 1000, которые делятся без остатка одновременно 4, 5 и 9

2. найдите и виведите на экран количество двузначных чисел, у которых при умножении на 3 сума цифр кратна 5.

Задача 1.

program Task1;

var

 count, i: Integer;

begin

 count := 0;

 for i := 20 to 1000 do

 begin

   if (i mod 4 = 0) and (i mod 5 = 0) and (i mod 9 = 0) then

     inc(count);

 end;

 write(count);

end.

Задача 2.

program Task2;

var

 count, i, a, sum: Integer;

begin

 count := 0;

 for i := 10 to 99 do

 begin

   a := i * 3;

   sum := 0;

   while (a > 0) do

   begin

     inc(sum, a mod 10);

     a := a div 10;

   end;

   if (sum mod 5 = 0) then

     inc(count);

 end;

 write(count);

end.