Дано 5ти зн число, найти максимальную цифру в нём используя циклы while do и repeat until, break исп нельзя. Free ide pascal.
Вот решение с for to do
program z1;
uses crt;
var n:longint;
i,max,x:integer;
begin
clrscr;
read(n);
max:=-1;
for i:=1 to 5 do
begin
x:= n mod 10;
if x>max then max:=x;
x:= n div 10;
end;
writeln(max);
end.
с ост циклами на подобие этого сделать нужно.
Вот решение с for to do
program z1;
uses crt;
var n:longint;
i,max,x:integer;
begin
clrscr;
read(n);
max:=-1;
for i:=1 to 5 do
begin
x:= n mod 10;
if x>max then max:=x;
x:= n div 10;
end;
writeln(max);
end.
с ост циклами на подобие этого сделать нужно.
More Questions From This User See All