СРОЧНО! НАПИШИТЕ ПРОГРАММУ ПО ПАСКАЛЮ.
Дано трехзначное натуральное число A. Требуется определить, какая из его цифр большая.
Исходные данные: 835.
Результат: 8.
Ответы
Ответ дал:
0
var a,c,k,max,chislo: integer;
begin
readln(chislo);
max:=-10;
c:=1;
repeat
a:=chislo div 10
c:=c+1;
until a=0;
k:=10;
for i to c do begin
if (chislo mod k)> max then max:=(chislo mod k)
chislo:=chislo mod k;
end;
writeln ( max);
end.
begin
readln(chislo);
max:=-10;
c:=1;
repeat
a:=chislo div 10
c:=c+1;
until a=0;
k:=10;
for i to c do begin
if (chislo mod k)> max then max:=(chislo mod k)
chislo:=chislo mod k;
end;
writeln ( max);
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад
9 лет назад