Помогите программу из паскаль в С++ переделать!!!! - Форум
Суббота, 03.12.2016, 22:46
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите программу из паскаль в С++ переделать!!!!
Помогите программу из паскаль в С++ переделать!!!!
LanochkaДата: Пятница, 01.05.2009, 12:04 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 4
[ 0 ]
Статус: Offline
Всем, добрый день!!
помогите переделать программу из паскаля в С++!!
Задание: Проверить, является ли натуральное число N палиндромом (палиндром - это число, которое читается одинаково слева направо и наоборот).

вот программа в паскале:
Program n1;
{
Задача. Проверить, является ли натуральное число N палиндромом.
}

Uses Crt;

Var
a, { данное число }
b, { копия a }
d, { делитель числа }
d1, { делитель для нахождения левых цифр }
d2 { делитель для нахождения правых цифр }
: longint;

n, { количество цифр }
i, { номер числа сравнений цифр }
ts1, { цифра в левой части записи числа }
ts2 { цифра в правой части записи числа }
: integer;

flag { признак палиндромности числа }
: 0..1;

Begin
ClrScr;

Write ('Введите число: ');
ReadLn (a);

{
узнаем, сколько цифр в числе
}
b := a;
n := 0;
d1 := 1;
While b <> 0 do
begin
Inc (n); { увеличение n на единицу }
b := b div 10;
d1 := d1 * 10;
end;
d1 := d1 div 10;

d2 := 1;
flag := 0;
for i := 1 to n div 2 do
begin
ts1 := a div d2 mod 10;
d2 := d2 * 10;
ts2 := a div d1 mod 10;
d1 := d1 div 10;
if ts1 <> ts2
then
begin
flag := 1;
WriteLn ('Это число не является палиндромом.');
Break;
end;
end;
if flag = 0
then
WriteLn ('Данное число является палиндромом.');

ReadLn;
End.

 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите программу из паскаль в С++ переделать!!!!
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016