Предмет: Информатика,
автор: kenny981
помогите написать программы на паскале.
1. вычислить произведение нечетных чисел в диапазоне от 40 до 20
2. определите и выведите на экран количество чисел между 20 и 100 ,которые делятся без остатка на 4,5 и 10 одновременно.
Ответы
Автор ответа:
0
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.
Похожие вопросы
Предмет: Математика,
автор: maksisbigimot
Предмет: Русский язык,
автор: abainurjaina
Предмет: Другие предметы,
автор: Аноним
Предмет: Химия,
автор: КУКЛА102
Предмет: Геометрия,
автор: Evgeniya111