Составьте программу, которая вычисляет сумму натуральных чисел, кратных 7, в диапазоне от a до b (a и b - введены с клавиатуры).
Answers & Comments
никита3132
Program a1; uses crt; var ta,b, i,s:integer; begin. readln(a); readln(b); s:=0; if a > b then for i:= a to b do if i mod 7 = 0 then s:=s+i; else else if b > a then for i:= b to a do if i mod 7 = 0 then s:=s+i begin end; writeln(s); end.
Answers & Comments
uses crt;
var
ta,b, i,s:integer;
begin.
readln(a);
readln(b);
s:=0;
if a > b then
for i:= a to b do
if i mod 7 = 0 then
s:=s+i;
else
else
if b > a then
for i:= b to a do
if i mod 7 = 0 then
s:=s+i
begin
end;
writeln(s);
end.