информатика

Написать программу Вычислить сумму двух последних цифр двух натуральных трехзначных чисел.

Оставить ответ
1

Ответ №1

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

Знаете ответ?