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

Тема в разделе "Pascal and Delphi", создана пользователем deniska92, 13 фев 2011.

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

    deniska92 Гость

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

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    По подробней можно
    Пользуйтесь поиском, такое уже было.
    Код (Delphi):
    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 Гость

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

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