Найти сумму двузначных положительных чисел сумма цифр которых кратно 7. (паскаль)
Найти сумму двузначных положительных чисел сумма цифр которых кратно 7. (паскаль)
Гость
Ответ(ы) на вопрос:
Гость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. Попробуй
Не нашли ответ?
Похожие вопросы