VPF::Задачи по паскалю, помощ - Форум программистов

HacTeHka

Дата 16.12.2008, 14:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 16.12.2008

Репутация: нет
Всего: нет

Привет всем! помогите пожалуста решить несколько задач.

вот 1 задача я решила но мне сказали без использования функции string надо решать, а как переделать я незнаю:(
1. Дано целое длинное число A. Определить, есть ли в числе рядом стоящие одинаковые цифры.

Код


var
i:integer;
P:longint;
s: string;
e:boolean;
begin

e:=false;
readln(P);
str(P,s);
for i:=2 to length(s) do
if s[i]=s[i-1] then e:=true;

if e then writeln('est') else writeln('no');

end.

заранее спасибо!

Это сообщение отредактировал(а) HacTeHka - 16.12.2008, 17:46

volvo877

Дата 16.12.2008, 16:33 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Цитата(HacTeHka @ 16.12.2008, 13:41

)

Дано целое длинное число A. Определить, есть ли в числе рядом стоящие одинаковые цифры.

Код

var
  a, last: longint;
  e: boolean;
begin
  readln(a); e := false;

  while a <> 0 do begin
    last := a mod 100;

    if (last mod 10) = (last div 10) then e := true;
    a := a div 10;
  end;

  if e then writeln('yes') else writeln('no');
end.

HacTeHka

Дата 16.12.2008, 17:43 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 16.12.2008

Репутация: нет
Всего: нет

volvo877 спасибо smile

HacTeHka

Дата 17.12.2008, 19:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 16.12.2008

Репутация: нет
Всего: нет

volvo877 а ты можешь написать как ты писал этот код?комментарии в строчках?если можешь буду очень признательна)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »