Var a,b:longint; function sum (n:integer):integer; var s:integer; begin s:=0; while (n<>0) do begin s:=s+n mod 10; n:=n div 10; end; sum:=s; end; begin write ('A = '); readln (a); write ('B = '); readln (b); if sum(a) > sum(b) then writeln ('Сумма цифр 1ого числа больше на ',sum(a)-sum(b)) else if sum(b) > sum (a) then writeln ('Cумма цифр 2ого числа больше на ',sum(b)-sum(a)) else writeln ('Сумма цифр 1ого числа равна сумме цифр 2ого числа'); readln; end.
Программа:
C#:
using System;
class znanija {
static void Main() {
Console.Write("A = ");
int A = Convert.ToInt32(Console.ReadLine());
Console.Write("B = ");
int B = Convert.ToInt32(Console.ReadLine());
if (A % B == 0) { Console.WriteLine("B - делитель числа А"); }
else if (B % A == 0) { Console.WriteLine("A - делитель числа B"); }
else { Console.WriteLine("Числа не являются делителями друг друга"); }
}
}