По информатике решите в паскале плз : 3 3.дано натуральное - вопрос №333325643 от spilberg3 09.09.2022 02:48

Question

Информатика: По информатике решите в паскале плз : 3 3.дано натуральное трехзначное число. определить и вывести на экран большую цифру этого числа.

spilberg3 · Answer

Var x,x1,x2,x3:integer; Begin Write( введите число ); Readln(x); X1:=x mod 10; X2:=x div 100; X3:=(x div 10) mod 10; If (x1 x2) and (x1 x3) then Write(x1); If (x2 x1) and (x2 x3) then Write(x2); If (x3 x2) and (x3 x1) then Write(x3); Readln End....