Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы
Старый 15.10.2011, 17:19   #1
димон4ик_
Пользователь
 
Регистрация: 04.10.2011
Сообщений: 29
По умолчанию Кто может

Дано целое число n, удовлетворяющее условию 0< модуль н но меньше либо равно 2*10 в девятой степени . Найти максимальную цифру в записи этого числа.
димон4ик_ вне форума
Старый 15.10.2011, 20:22   #2
whatever
a.k.a. Skull
Форумчанин
 
Регистрация: 17.11.2009
Сообщений: 963
По умолчанию

Код:
var
  n,i:integer;
  k:char;
  Chis:array of char;
  str:string;
begin
    writeln('Enter N:');
  readln(n);
  str:=inttostr(n);
  setlength(chis,length(str));
  for i:=0 to high(chis) do
    chis[i]:=str[i+1];
  k:='0';
  for i:=0 to high(chis) do
    if k<chis[i] then k:=chis[i];
  Writeln('MAX= ',k);
  readln
END.
Правда про модуль забыл... Ну если что сделай проверку после readln(n), если отрицательно, то отними его от самого себя два раза :D

Последний раз редактировалось whatever; 15.10.2011 в 20:25.
whatever вне форума
Закрытая тема

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Где можно скачать Borland C++ или может кто-то может скинуть dani6 C++ Builder 11 19.02.2011 15:01
Кто может? Katte Фриланс 12 30.06.2010 14:09
Кто может... egoist_90 Общие вопросы Delphi 0 27.04.2010 07:04


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS