Написать программы на паскале. 1. вычислить произведение нечетных чисел в диапазоне от 40 до 20 2. определите и выведите на экран количество чисел между 20 и 100 ,которые делятся без остатка на 4,5 и 10 одновременно.
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.
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.