Question

60 БАЛЛОВ

Операторы цикла. Написать ТОЛЬКО ПРОГРАММЫ к двум заданиям.


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

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


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

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

Answer 1

Ответ:

Задача 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.