Найти сумму двузначных положительных чисел сумма цифр которых кратно 7. (паскаль)

nomeNome13No nomeNome13No    2   20.03.2019 16:40    2

Ответы
Kristoforeska Kristoforeska  26.05.2020 08:45

Program Summa;
var
n,
l,
a: integer;
m: integer;
b: integer;
k: integer;
begin
Readln(n);
Readln(l);
a:=n div 10;
m:=l div 10;
b:=n mod 10;
k:=l mod 10;
if (a+b) mod 7=0 then write(n,' ');
if(m+k) mod 7=0 then write(n+l);
End.

Попробуй

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика