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

1

Ответы и объяснения

2012-12-12T14:46:22+00:00

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.

Попробуй