Найди наибольшую цифру в записи числа

Знания

Информатика

1 ответ:

Натали Лео4 года назад

0 0

Var n,i : longint; st : string; ch : char; begin readln(n); str(n,st); ch:=''; for i:=1 to length(st) do if st[i]>ch then ch:=st[i]; writeln(ch); end.

Читайте также

Помогите срочно надо. Известен рост 3-х человек определить самого высокого и самого низкого. Блок-схема в фото. я уже пробывала

Ярослав СДДд

Program rost;
var R1,R2,R3,max:integer;
begin
writeln('Введите рост первого человека'); readln(R1);
writeln('Введите рост второго человека'); readln(R2);
writeln('Введите рост третьего человека'); readln(R3);
max:=R1;
if R2>max then
begin
max:=R2;
if R3>max then max:=R3
end
else if R3>max then max:=R3;
writeln('Рост самого высого человека=',max);
end.

0 0

4 года назад

Прочитать ещё 2 ответа

Как называются загадочные знаки покрывающие стены египетских храмов гробниц и саркофагов

Margo8 [7]

Загадочные знаки на стенах гробниц- это иероглифы

0 0

3 года назад

Прочитать ещё 2 ответа

Помогите, пожалуюста!!!

mishanya99

Ответ 1D,2клиент , 3в(2)