Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Среди чисел от a до b найти сумму четных и и количество кратных 5 . Желательно сотавить блок-схему и программу

Ответ оставил Гость

Программа для решения задачи:
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.