Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

найти сумму двузначных положительных чисел сумма цифр которых кратно 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.

Попробуй