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

Горлов
Aug 9, 2019
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
12