Var a,b,s:integer; begin Write('Введите два натуральных трехзначных числа: '); Read(a,b); s:=a mod 10 + (a mod 100) div 10; s:=s+b mod 10 + (b mod 100) div 10; Writeln('Сумма двух последних цифр чисел равна ',s) end.
Пример Введите два натуральных трехзначных числа: 132 559 Сумма двух последних цифр чисел равна 19
a,b,s:integer;
begin
Write('Введите два натуральных трехзначных числа: ');
Read(a,b);
s:=a mod 10 + (a mod 100) div 10;
s:=s+b mod 10 + (b mod 100) div 10;
Writeln('Сумма двух последних цифр чисел равна ',s)
end.
Пример
Введите два натуральных трехзначных числа: 132 559
Сумма двух последних цифр чисел равна 19