Программа для решения задачи: var a,b,sum,k,i:integer; begin write('Введите a=');readln(a); write('Введите b=');readln(b); sum:=0;k:=0; for i:=a to b do begin // если число делится на 2 без остатка, то добавляем его к сумме if i mod 2 =0 then sum:=sum+i; // если число делится на 5 без остатка, то увеличиваем количество на 1 if i mod 5 =0 then k:=k+1; end; // выводим результат writeln('sum=',sum); writeln('k=',k); end.
var a,b,sum,k,i:integer;
begin
write('Введите a=');readln(a);
write('Введите b=');readln(b);
sum:=0;k:=0;
for i:=a to b do
begin
// если число делится на 2 без остатка, то добавляем его к сумме
if i mod 2 =0 then sum:=sum+i;
// если число делится на 5 без остатка, то увеличиваем количество на 1
if i mod 5 =0 then k:=k+1;
end;
// выводим результат
writeln('sum=',sum);
writeln('k=',k);
end.