Question

На промежутке от а до в найти:
1. Сумму чисел кратных m.
2. Количество четных чисел.

Задачи решить с помощью 3 циклов.
Не забудьте про блок-схемы

Answer 1

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.