Var a, b, rezultat: integer;
begin
writeln(`Введите значения a и b:`);
readln(a, b);
if a < b then
rezultat:=a*b
else
rezultat:=a*a-b*b
writeln(rezultat);
end.
Ответ:
............................
<em>1. Современное решение с числами произвольной длины</em>
<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s1:=ReadlnString('1-е число:');
var s2:=ReadlnString('2-е число:');
Writeln('Сумма последних цифр: ',s1.Right(1).ToInteger+s2.Right(1).ToInteger)
end.
<u>Пример</u>
1-е число: 23454577562342341234213141652
2-е число: 35645675786956323224
Сумма последних цифр: 6
<em>2. Типовое "школьное" решение</em>
var
a, b: integer;
begin
Write('Введите два числа через пробел: ');
Read(a, b);
Writeln('Сумма последних цифр: ', a mod 10 + b mod 10)
end.
<u><em>Пример</em></u>
Введите два числа через пробел: 435345
6342
Сумма последних цифр: 7
1-й пункт: Alt+Shift: Ctrl+Shift: Shift+Shift
2-1 пункт: Shift
3-й пункт: Caps lock нажать/отжать
4-й пункт: Shift + цифра, вариации в обоих языках, в Английском слева, а в русском справа спец-символы.
5-й пункт: Del (Delete)
6-й пункт: Back Space
7-й пункт: Кнопка NUM LOCK вкл-только цифры, выкл-стрелки вверх, вниз, влево, вправо.