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

Question

Информатика

Христюша

5 ноября, 12:14

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

+3

Ответы (1)

Знаете ответ на вопрос?

Киприан · Answer 1

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.

Попробуй