Var a,b,c,d:integer; beginwriteln('введите число с которого начинать считать'); readln(a); writeln('введите число на которым окончить счёт'); readln(b); d:=0; for c:=a to b do begin if c mod 7 = 0 then d:=d+c; end; writeln(d); end.
1 votes Thanks 1
dary961
а здесь учтено то,что числа должны быть кратны 7? я в этом совсем не разбираюсь,к сожалению(
антагонист
вот сейчас учтенно, прошу прошения я в первый раз забыл добавить эту строку if c mod 7 = 0 then она и отвечает за проверку кратности числа 7
Answers & Comments
Verified answer
Var a,b,c,d:integer;beginwriteln('введите число с которого начинать считать');
readln(a);
writeln('введите число на которым окончить счёт');
readln(b);
d:=0;
for c:=a to b do
begin
if c mod 7 = 0 then
d:=d+c;
end;
writeln(d);
end.