Регистрация
beksedaniar
07.07.2021 14:13
Информатика
Есть ответ 👍

ЗА ДВА ЗАДАНИЯ

Кто хорошо знает информатику? Буду очень благодарен

150
329
Посмотреть ответы 1

Ответы на вопрос:

Vip6longin
Vip6longin
4,7(50 оценок)
Var  s: string;   max,min: char; begin    write('введите число: '); readln(s);     max: =s[1]; min: =s[1];       for var i: =2 to s.length do  begin          if min> s[i] then min: =s[i];           if max< s[i] then max: =s[i];       end;         writeln('max = ',max);     writeln('min = ',min);   end.

Популярно: Информатика