С Новым годом! Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal Майнкрафтия https://www.cyberforum.ru/ pascal/ thread2355195.html
Мы попали в Майнкрафтию, в которой все состоит из блоков размером 1 * 1 * 1. Вся страна поделена на одинаковые чанки, по одному Чанка для каждого жителя. Чанк представляет собой параллелепипед размером n * m * k блоков. Автор задачи живет в одном из таких чанков. Некоторые блоки этого Чанка пустые и через них можно пройти, а некоторые заставлены камнем, то есть непроходимыми. Автор сейчас...
Найти разность элементов массива Pascal
Есть такое задание: Программа на Pascal которая заполняет массив из 10 случайных целых чисел на промежутке от -10 до 5 вычисляет разность элементов массива. Правильно я сделал? Диапазон я верно указал? uses crt; var // создаем массив massiv:array of integer; raznost,i:integer; begin clrscr;
Pascal Для n точек плоскости найти расстояние от начала координат до каждой из них https://www.cyberforum.ru/ pascal/ thread2355009.html
Разработать алгоритм и программу с единственным циклом для обработки одномерных массивов. При заданных координатах X1,X2,...Xn; Y1,Y2,..Yn для n точек плоскости XOY найти Rk от начала координат до каждой из них (координатами k-й точки являются Xk, Yk).
Pascal Считая т текстовым файлом, ответить на следующие Считая t текстовым файлом, ответить на следующие вопр: а) эквивалентны ли типы text и fail of char; б) Кроме текстовых файлов, какие еще файлы могут делиться на строки? Обязательно ли все строки файла должны быть одинаковой длины? Могут ли в файле быть пустые строки в) Если при записи в t надо закончить строку, то как это сделать? Какие действия влечет за собой выполнение оператора... https://www.cyberforum.ru/ pascal/ thread2354940.html
Определить содержимое файла f, после выполнения следующих операторов: Pascal
Var f: file of integer; i: integer; Определить содержимое файла f, после выполнения следующих операторов: а) rewrite(f); if eof(f) then write(f,1) else write(f,2); if eof(f) then write(f,3) else write(f,4); б) rewrite(f); for i:=3 downto 1 do write(f,sqr(i));
Pascal Найти сумму n первых четных по номеру членов геометрической прогрессии с первым членом b и знаменателем q Найти сумму n первых парных по номеру членов геометрической прогрессии с первым членом b и знаменателем q. Помогите пожалуйста, буду благодарен. https://www.cyberforum.ru/ pascal/ thread2354840.html
Pascal Заменить каждую первую букву в слове заглавной. Запросить у пользователя строку S, содержащую несколько слов, разделенных символом пробела. Сформировать из нее строку S1, заменив каждую первую букву в слове заглавной. Вывести на чистый экран строки S и S1, рядом их длину. https://www.cyberforum.ru/ pascal/ thread2354830.html Pascal Метод наименьших квадратов (МНК)
Здравствуйте, прошу вашей помощи, нужно составить алгоритм решения задачи для аппроксимации точек степенной функцией (полиномом) произвольной степени m. составить программу на языке Pascal, содержащую: ввод исходных точек из файла данных, формирование матрицы Грамма, решение системы линейных алгебраических уравнений методом Гаусса, вывод результатов и проверку. program kvadrat; uses...
Pascal Программа на турбо паскале https://www.cyberforum.ru/ pascal/ thread2354573.html
Ребят, помогите написать программу на турбо паскале. Не разбираюсь в массивах. Желательно уже полностью с началом и с концом
Pascal Массив из больших чисел https://www.cyberforum.ru/ pascal/ thread2354571.html
Добрый const n = 5;var p: boolean; var a:array of longint; index : integer; {$I-} procedure generate (l,r:integer); var i,v:integer;
Pascal Напишите программу, вычисляющую функцию 1+x+x^2+x^3.+x^n
Подскажите пожалуйста, никак не могу догадаться как сделать такую программу, с помощью цикла for 1+x+x^2+x^3...+x^n
Pascal Решение системы линейных алгебраических уравнений методом Гаусса https://www.cyberforum.ru/ pascal/ thread2354497.html
Здравствуйте, прошу помощи в решении в паскале методом Гаусса 13x1 + x2 + 0.4x3 + 0.6x4 + 0.11x5 = 7.6 3x1 + 10x2 - 0.6x3 + 3x5 = 8.7 x1 - 2.1x2 + 4.9x3 + 2.8x4 = 9.2 1.1x1 - x2 + 18x4 - 3x5 = 5.5 x1 + x2 + x3 + x4 + 5x5 = 4.2
98 / 36 / 18
Регистрация: 05.11.2018
Сообщений: 231
20.11.2018, 22:55 0

Найти число, отличающееся от других чисел - Pascal - Ответ 13079304

20.11.2018, 22:55. Показов 2975. Ответов 9
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var a,b,c,d:integer;
begin
  readln(a,b,c,d);
  if (a<>b) and (a<>c) and (a<>d) 
    then writeln(a) 
 else
  if (b<>a) and (b<>c) and (b<>d) 
    then writeln(b) 
 else
  if (c<>b) and (c<>a) and (c<>d) 
    then writeln(c) 
 else
  if (d<>b) and (d<>c) and (d<>a) 
    then writeln(d);
end.
Те условия,которые вы проверяете,не гарантируют что четвертое число не равно одному из предидущих.Мое решение довольно корявое,можно с помощью каких-нибудь модулей сделать красивее.Как отправная точка пойдет.

Вернуться к обсуждению:
Найти число, отличающееся от других чисел Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.11.2018, 22:55
Готовые ответы и решения:

Получить число к, отличающееся от n обратным порядком следования цифр
Дано пятизначное число n. Получить число к, отличающееся от n обратным порядком следования цифр....

Найти число, которое отлично от трех других, равных между собой
Даны 4 целых числа,одно из которых отлично от трех других равных между собой. Вывести порядковый...

Найти число, которое отлично от трех других, равных между собой
Известно, что из четырех чисел a1, а2, a3 и а4 одно отлично от трех других, равных между собой;...

Нужно найти 3 число отличное от двух других
Данны 3 числа. известно что 2 из них равны, а 3 отлично от них. Решить задачу с помощью программы...

9
20.11.2018, 22:55
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.11.2018, 22:55
Помогаю со студенческими работами здесь

Составить восьмизначное число из цифр 8 других восьмизначных чисел
Используя цикл for составить 8-значное число из цифр других 8 8-значных чисел. Формат входных...

Сгенерировать 30 чисел и найти пару чисел, расстояния между которыми больше чем у других
Нужно написать программу. Сгенерировать 30 чисел и найти пару чисел расстояния между которыми...

Найти число отличное от других
Известно, что из четырех чисел a1, a2, a3, a4 одно отлично от трех других, равных между собой. ...

Найти число отличное от трех других
Даны четыре целых числа, которые ввели с клавиатуры, одно из которых отлично от трех других, равных...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru