Question

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

 

1. вычислить произведение нечетных чисел в диапазоне от 40 до 20

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

 

Answer 1

 

var i,count: integer;
proizv:longint;

begin
proizv:=1;
count:=0;
for i:=20 to 40 do
begin
if (i mod 2<>0) then
proizv:=proizv*i;
end;
for i:=20 to 100 do
if (i mod 45=0)then 3{Делятся на 4,5 и на 10=>делятся на 45}
count:=count+1;
writeln('Произведение равно: ',proizv);
writeln('Число кратных чисел: ',count);
end.