Информатика Срочно
Дано четырёхзначное число ,найти наибольшую цифру в записи этого числа
Аноним:
Какое четырехзначное? В какой СС? Больше данных нужно
Ответы
Ответ дал:
1
program vld;
var a,b,c,max: integer;
begin
readln(b);
min:=9;
max:=0;
repeat
begin
c:=b mod 10;
b:=b div 10;
if c>max Then max:=c;
end;
until b<=0;
writeln('Наибольшее значение:',max);
end.
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
7 лет назад