Если не сложно, напишете пожалуйста программу на паскале, которая бы вычисляла разность первой и последней цифры в трехзначном числе
Круто
Пусть 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.
Можно еще добавить константы 100 и 10.
Да можно вообще еще десяток строк добавить. Но вот надо ли? )))
Я как-то забыл про mod.
"Учите матчасть!" (с)