Пусть 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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку