Если не сложно, напишете пожалуйста программу ** паскале, которая бы вычисляла разность...

0 голосов
74 просмотров

Если не сложно, напишете пожалуйста программу на паскале, которая бы вычисляла разность первой и последней цифры в трехзначном числе


Информатика (57 баллов) | 74 просмотров
Дано ответов: 2
0 голосов
Правильный ответ
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger;
  Writeln(n div 100 - n mod 10)
end.
(150k баллов)
0

Круто

0 голосов

Пусть X - трехзначное число
Begin
Var X: Integer; // Это наше число
Var Y,Z, F, Result: Integer;
Y := X div 100 // Это первое число слева
Z := (X - (Y * 100)) div 10 // Это второе число
F := X - (Y*100) - (Z*10) // Это третье число
Result:= Y - F
End.

(102 баллов)
0

Можно еще добавить константы 100 и 10.

0

Да можно вообще еще десяток строк добавить. Но вот надо ли? )))

0

Я как-то забыл про mod.

0

"Учите матчасть!" (с)