Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Вывести число, полученное при удалении чисел

81K
28 мая 2012 года
marina87
4 / / 28.05.2012
Pascal ABC:
Дано шестизначное число. Вывести число, полученное при удалении чисел, занимающих нечетные места (например, при вводе 123456 на экран выведется число 246);
  • Вы опять? :) При удалении ЦИФР, занимающих нечетные места... от disputant, 28 мая 2012 года
20K
29 мая 2012 года
ellor!
198 / / 24.05.2012
Код:
begin
  {$I-}
  Readln(n);
  {$I+}
  if (IOResult <> 0) then begin
    Writeln('Bad n');
    Exit;
  end;

  sin  := IntToStr(n);
  sout := '';
  for i := 1 to Length(sin) do
    if (i mod 2 = 0) then
      sout := sout + sin[i];
  Writeln(sout);
end.

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог