Предмет: Информатика,
автор: Получил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.
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.
TheSistineChapel:
Можно еще добавить константы 100 и 10.
Да можно вообще еще десяток строк добавить. Но вот надо ли? )))
Я как-то забыл про mod.
"Учите матчасть!" (с)
Автор ответа:
0
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger;
Writeln(n div 100 - n mod 10)
end.
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger;
Writeln(n div 100 - n mod 10)
end.
Круто
Похожие вопросы
Предмет: Биология,
автор: extralex01
Предмет: История,
автор: vikarastegaeva
Предмет: Русский язык,
автор: msyto4ka
Предмет: Геометрия,
автор: YaDvoishnik228