Предмет: Информатика,
автор: 2002101111111
На промежутке от а до в найти:
1. Сумму чисел кратных m.
2. Количество четных чисел.
Задачи решить с помощью 3 циклов.
Не забудьте про блок-схемы
Ответы
Автор ответа:
0
var i,a,b,m,sum,s:integer;
begin
read(a,b,m);
for i:=a to b do begin
if(i mod m =0)then sum:=sum+i;
if(i mod 2 =1)then s:=s+1;
end;
writeln(sum,' ',s);
end.
Похожие вопросы
Предмет: Биология,
автор: ivanchernovol09
Предмет: Биология,
автор: serhijssk
Предмет: Биология,
автор: playingpear05
Предмет: Математика,
автор: ГЕНАДЕВНАНАТАША