Дано 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.
с ост циклами на подобие этого сделать нужно.
Дано 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.
с ост циклами на подобие этого сделать нужно.
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.
с ост циклами на подобие этого сделать нужно.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program z1;
uses crt;
var n:longint;
i,max,x:integer;
begin
clrscr;
read(n);
max:=-1;
i:=1;
while i<=5 do
begin
x:= n mod 10;
if x>max then max:=x;
n:= n div 10;
i:= i+1;
end;
writeln(max);
end.