Информатика, опубликовано 2018-08-22 23:18:50 by Гость
Паскаль составьте программу определения наибольшей цифры в записи данного натурального числа
Ответ оставил Гость
Program prog;
uses crt;
var x,y:integer;
begin
clrscr;
write (x = );
readln(x);
while abs(x)>0 do begin
if abs(x mod 10)>y then y:= abs(x mod 10);
x:= x div 10;
end;
writeln(Наибольшая цифра чсла = , y);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на