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.