Ввести с помощью read(); два трехзначных числа N1 и N2 (оба integer). В этих числах обменяли младшие цифры. (Например, ввели 347 и 285. После обмена: 345 и 287). Вывести полученные числа и сумму этих чисел
PaskalABCNET
Ответы
Ответ дал:
0
Program zadanie;
Var n1,n2,a,b:integer;
Begin
Writeln('Ввести два 3-х значных целых числа');
Readln(n1,n2);
a:=(n1 mod 100) mod 10;
b:=(n2 mod 100) mod 10;
a:=a+b;
b:=a-b;
a:=a-b;
Writeln('N1=',n1 div 10,a);
Writeln('N2=',n2 div 10,b);
Writeln('Сумма этих чисел=',(n1 div 10)+(n2 div 10)+((a+b) div 10),(a+b) mod 10);
End.
Var n1,n2,a,b:integer;
Begin
Writeln('Ввести два 3-х значных целых числа');
Readln(n1,n2);
a:=(n1 mod 100) mod 10;
b:=(n2 mod 100) mod 10;
a:=a+b;
b:=a-b;
a:=a-b;
Writeln('N1=',n1 div 10,a);
Writeln('N2=',n2 div 10,b);
Writeln('Сумма этих чисел=',(n1 div 10)+(n2 div 10)+((a+b) div 10),(a+b) mod 10);
End.
Ответ дал:
0
исправил
Ответ дал:
0
щя затестим)
Ответ дал:
0
красавчик!
Ответ дал:
0
нужно еще кое-что исправить
Ответ дал:
0
теперь все правильно
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
9 лет назад
10 лет назад