Верно ли, что все элементы последовательности равны между собой?

@wein173 · Регистрация: 29.04.2013

Author24 — интернет-сервис помощи студентам

Дана непустая последовательность целых чисел, оканчивающаяся отрицательным числом. Верно ли, что все элементы последовательности равны между собой?

@MicM · 26.06.2013, 00:28

Pascal

var
  a,b:integer;
  f:boolean;
begin
  write ('Ввод = > ');
  readln(a);{читаем 1ое число}
  b:=a;{заносим его в переменную b}
  f:=false;
  repeat
    write ('Ввод = > ');
    readln(a);{читаем следующее число}
    if a=b then f:=true else
     if a>=0 then f:=false;
    b:=a;{делаем его предыдущим}
  until a<0;
  writeln (f);
  readln;
end.

Программа выводит TRUE,если все эл. последовательности равны,иначе выводит FALSE

@wein173 1 / 1 / 0 Регистрация: 29.04.2013 Сообщений: 79
		1
	Верно ли, что все элементы последовательности равны между собой? 25.06.2013, 23:39. Показов 3094. Ответов 1 Метки нет (Все метки) Дана непустая последовательность целых чисел, оканчивающаяся отрицательным числом. Верно ли, что все элементы последовательности равны между собой? 0

	26.06.2013, 00:28

Верно ли, что все элементы последовательности равны между собой?

Решение