Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте эксперты!
помогите сдать лабораторную состоящую из 2 задач:
1) ввести число n приписать по 1 в начало и в конец записи числа n (например n=345 результат 13451).
2)вводится последовательность нулевых чисел 0-конец последовательности определить сколько раз последовательность меняет знак.
заранее благодарю.

Вопрос задал: alex2580 (статус: Посетитель) Вопрос отправлен: 25 января 2010, 21:16 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: Паровоз

Здравствуйте, alex2580!

1) Вводим число как строку s:

var
  s:string;
  x,y:Integer;
  cnt:Integer;
begin
  Readln(s);
  s:='1'+s+'1';
  Writeln(s);
  Readln;
end.

var
  x,y:Integer;
  cnt:Integer;
begin
  cnt:=0;
  Readln(x);
  while x<>0 do
  begin
    Readln(y);
    if x*y<0 then cnt:=cnt+1;
    x:=y;
  end;
  Writeln('count=',cnt);
  Readln;
end.

Ответ отправил: Паровоз (статус: 10-ый класс) Время отправки: 25 января 2010, 22:53 Оценка за ответ: 5 Комментарий к оценке: огромное спасибо Паровоз

Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.