Question

Ввести с помощью read(); два трехзначных числа N1 и N2 (оба integer). В этих числах обменяли младшие цифры. (Например, ввели 347 и 285. После обмена: 345 и 287). Вывести полученные числа и сумму этих чисел
PaskalABCNET

Answer 1

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.

Answer 2

исправил

Answer 3

щя затестим)

Answer 4

красавчик!

Answer 5

нужно еще кое-что исправить

Answer 6

теперь все правильно