Var a2,a,c,sym:
integer;
begin
for a:=100 to 200 do begin
a2:=a;
while (a2<>0) do begin
c:=a2 mod 10;
a2:=a2 div 10;
end;
if (a mod 7 = 0 ) and ((c=1) or (c=4)) then sym:=sym+a;
end;
writeln('сумма чисел от sym=',sym);
end.
1АКЛМ по возрастанию 2МЛКА наоборот по уменьшанию 3МАЛК это большое маленькое большое маленькое 4АМКЛ наоборот маоенько большое маленькое большое Ас буквой М получается 2 хоть я и в 5 классе и у меня нет информатики надеюсь правельно ответил
Если сумма цифр в числе кратна 3-м, то число делится на 3 без остатка. У меня получилось 9776544.
Проверяем 9+7+7+6+5+4+4=42, 42/3=14.
Var a, b: integer;
begin
read(a, b);
writeln(a+b);
writeln(IntToStr(a)+IntToStr(b))
end.
Если всё выше написанное целостная задача, то ответ нет. Есть вероятность, что среди этих оценок есть тройки.