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

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.