Ввести с помощью read(); два трехзначных числа N1 и N2 (оба integer). В этих числах обменяли младшие цифры. (Например, ввели 347 и 285. После обмена: 345 и 287). Вывести полученные числа и сумму этих чисел
PaskalABCNET
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
