Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Неизвестная ошибка n,m,p,o,i,j:byte; a,b:matr; min1,min2:integer; procedure W(l,k:byte; var x:matr); begin writeln ('Введите массив ',l,'*',k); for i:=1 to l do for j:= 1to k do read (x); end; function Y(l,k:byte;x:matr):integer; https://www.cyberforum.ru/ pascalabc/ thread419084.html	Найти номера последних положительных элементов каждой строки матрицы Pascal ABC Дан двумерный массив. Найти номера последних положительных элементов каждой строки.
Pascal ABC Вычислить значение функции С входным и выходным параметром. var Z,F1,F2,F3,F4,F5,F6: real; procedure piop(x,F:real); begin F:=(1+sqr(cos(x)))/ABS(exp(3*ln(x)-2)); end; begin piop (1,F1); piop (6,F2); https://www.cyberforum.ru/ pascalabc/ thread419032.html	Pascal ABC Срочно! помогите пожалуйста написать программу по теме Разработка программ с использованием алгоритмов сортировки 1. Задать два массива по 4 символа. Отсортировать оба массива: первый – по убыванию методом пузырька, второй – по возрастанию методом выбора. Выводить на экран каждый шаг сортировки. 2. Изменить программу так, чтобы задавались массивы произвольного размера. Ввод, вывод и сортировку массивов организовать в виде процедур. https://www.cyberforum.ru/ pascalabc/ thread419022.html
Pascal ABC Вставить число 128 перед четвертым элементом массива 1. Удалить первый элемент массива. 2. Вставить число 128 перед четвертым элементом массива. 3. Поменять местами второй и седьмой элементы массива.	Pascal ABC Выяснить, возможно ли переместить шарик из начальной клетки в заданную https://www.cyberforum.ru/ pascalabc/ thread418985.html В таблице из N строк и N столбцов некоторые клетки заняты шариками, другие свободны. Выбран шарик, который нужно переместить, и место, куда его нужно переместить. Выбранный шарик за один шаг перемещается в соседнюю по горизонтали или вертикали свободную клетку. Требуется выяснить, возможно ли переместить шарик из начальной клетки в заданную, и если возможно, то найти путь из наименьшего...
Pascal ABC Переставить цифры числа так, чтобы образовалось максимальное число, записанное теми же цифрами Дано натуральное число n.Переставить его цифры так,чтобы образовалось максимальное число,записанное теми же цифрами. https://www.cyberforum.ru/ pascalabc/ thread418982.html	из char в integer Pascal ABC как присвоить переменной типа чар в интеджер? типа str(s,b)
Pascal ABC Вычислить значение функции https://www.cyberforum.ru/ pascalabc/ thread418973.html Вычислить значение функции F(x)={-x^2-9, если x>=13 {-1/x^2+9, если x<=13 (там все под одной фигурной скобкой) (решите через Case) заранее спасибо	Pascal ABC Завтра сдавать....Как сделать?? Работа с файлами(Паскаль АВС) https://www.cyberforum.ru/ pascalabc/ thread418953.html Вся надежда на вас.... Написать программу просмотра записи и его индекса по введенной фамилии(Иванова).:(:(:(
Pascal ABC Определить, что данное число нечетное и трехзначное //Дано целое положительное число.Проверьте истинность высказывания :"Данное число нечетное трехзначное". program Boolean17; var a: integer; b: boolean; begin writeln('Введите число: '); read(a); if ((a mod 2)=1) and (a div 1000<=1)and(a div 100>=1)then b:= true; write('Число нечетное трехзначное: ',b);	Pascal ABC очень срочно нужно,завтра нужно сдать,помогите! https://www.cyberforum.ru/ pascalabc/ thread418925.html F(x)=ctgx+1 тема "циклы" и комменты добавьте,заранее спасибо

КонецСвета

Почетный модератор

7966 / 3937 / 2464

Регистрация: 30.10.2011

Сообщений: 5,377

27.12.2011, 19:56

Подсчитать количество пар следующих подряд равных чисел - Pascal ABC - Ответ 2335426

27.12.2011, 19:56. Показов 2198. Ответов 1

Метки (Все метки)

Сообщение было отмечено Памирыч как решение

Решение

если последние 0 не учитываются, а являются всего лишь признаком завершения, тогда так

Pascal

uses crt;
var n,pn,k: integer;
begin
write('Введите число ');
readln(n);
repeat
pn:=n;
write('Введите число ');
readln(n);
if n=pn then inc(k);
until (n=0) and (pn=0);
writeln('В последовательности ',k-1,' пар(ы) соседних равных элементов');
readkey
end.

Вернуться к обсуждению:
Подсчитать количество пар следующих подряд равных чисел Pascal ABC

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

27.12.2011, 19:56

Готовые ответы и решения:

Количество пар равных чисел
Даны четыре числа a, b, c, d .Вывести на экран количество пар равных чисел

Даны четыре числа a, b, c, d .Вывести на экран количество пар равных чисел
Даны четыре числа a, b, c, d .Вывести на экран количество пар равных чисел

Подсчитать количество чисел, равных нулю
Здравствуйте. Помогите разобраться с такой задачей: В текстовом файле содержится...

Подсчитать количество различных чисел массива, не равных между собой
1) Дан массив с , подсчитать количество различных чисел, не равных между собой

	27.12.2011, 19:56

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

27.12.2011, 19:56

Помогаю со студенческими работами здесь

Подсчитать наибольшее число одинаковых, следующих подряд чисел.
1)Заполнить массив из 10-ти значений четными числами начиная с -4. 2)Заполнить двумернный массив...

Подсчитать количество пар противоположных чисел
Записать в файл последовательного доступа N целых чисел, полученных с помощью генератора случайных...

Вычислите сумму неотрицательных чисел, стоящих на местах, кратных 3, и подсчитать количество чисел, равных заданному Т
Вычислите сумму неотрицательных чисел, стоящих на местах, кратных 3, и подсчитать количество чисел,...

Как подсчитать количество чисел, равных заданному Т ?
Как подсчитать количество чисел, равных заданному Т ? Добавлено через 23 секунды И в чём тут...

Наверх