1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

2 задачи с натуральными числами.ДО ВТОРНИКА ОЧЕНЬ НАДО!

Тема в разделе "Вопросы новичков и не только", создана пользователем deniska92, 13 фев 2011.

Статус темы:
Закрыта.
  1. deniska92

    deniska92 Гость

    Репутация:
    0
    НУЖНО РЕШИТЬ В ПАСКАЛЕ
    Дано натуральное число.Нужно:
    1.найти колличество и сумму чисел
    2.определить ,является ли число палендромом.
    ПОМОГИТЕ,ОЧЕНЬ НАДО!!
     
  2. Dock1100

    Dock1100 :-]

    Репутация:
    0
    Регистрация:
    9 ноя 2009
    Сообщения:
    665
    Симпатии:
    1
    По подробней можно
    Пользуйтесь поиском, такое уже было.
    Код:
    var
    s:string;
    n:integer;
    
    function Pa(s:string):boolean;
    var
    i:integer;
    fl:boolean;
    begin
    fl:=true;
    for i:=1 to length(s) div 2 do
    if s[i]<>s[length(s)-i+1] then
    fl:=false;
    Pa:=fl
    end;
    
    begin
    readln(n);
    str(n,s);
    if Pa(s) then writeln('yes') else writeln('false');
    end;
     
  3. deniska92

    deniska92 Гость

    Репутация:
    0
    не идёт прога с палендромами :newconfus:
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей