Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.62/65: Рейтинг темы: голосов - 65, средняя оценка - 4.62
0 / 0 / 0
Регистрация: 05.02.2012
Сообщений: 7

Найти максимальное из трёх чисел

05.02.2012, 18:46. Показов 14171. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Задание в Паскале ПОМОГИТЕ!!! Определить какое из трех, введенных пользователем, чисел максимальное и вывести его на экран.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
05.02.2012, 18:46
Ответы с готовыми решениями:

Найти максимальное из трех введенных чисел
program p3; var a,b,c: integer; begin write('Введите 3 числа: '); read(a,b,c); if a>b and a>c then write(a); if...

Найти максимальное из трех чисел X, Y и Z, где X, Y и Z - средние арифметические значения элементов массивов
Заданы три массива А(М), В(N) и C(Q). Найти максимальное из трех чисел X, Y и Z, где X, Y и Z - средние арифметические значения элементов...

Определить максимальное из трех чисел
Ввести три числа А, В, С и определить максимальное из них. ...

3
05.02.2012, 18:52
 Комментарий модератора 
1234567890, один вопрос-одна тема.
0
36 / 36 / 28
Регистрация: 17.01.2012
Сообщений: 64
05.02.2012, 18:56
Pascal
1
2
3
4
5
6
7
8
var a,b,c:integer;
begin
  write('Введите три числа через пробел: ');
  readln(a,b,c);
  if (a>b) and (a>c) then write('Максимальное числа - ',a);
  if (b>a) and (b>c) then write('Максимальное число - ',b);
  if (c>a) and (c>b) then write('Максимальное число - ',c);
end.
0
1406 / 648 / 135
Регистрация: 11.08.2011
Сообщений: 2,299
Записей в блоге: 2
05.02.2012, 20:16
Pascal
1
2
3
4
5
6
7
var a,b,c: integer;
begin
read (a,b,c);
if b>a then a:= b;
if c>a then a:= c;
write (a);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
05.02.2012, 20:16
Помогаю со студенческими работами здесь

Найти максимальное число из трёх
Помогите пожалуйста, очень нужно, заранее благодарю! Условный оператор. 12. Найти максимальное число из трёх.

Найти максимальное число из трех
надо создать программу которое при вводе трех чисел,скажет какое из них наибольшее. мое: program nana; var a,b,c:integer; begin ...

Из трех чисел минимальное и максимальное оставить без изменений, третье возвести в куб
Введены три числа, минимальное и максимальное оставить без изменений третье возвести в куб. Помогите найти ошибку в выводе когда ввожу 4...

Найти максимальное произведение трех слагаемых данного числа
помогите написать программу, которая по введенному натуральному числу находит произведение его трех слагаемых.(в сумме они дают введенное...

Найти максимальное из трёх чисел
Помогите пожалуйста исправить ошибки:gsad: 1) Заданы три массива а(m), b(n) и c(q). Найти максимальное из трёх чисел x, y , z, где эти...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Фото всей Земли с борта корабля Orion миссии Artemis II
kumehtar 04.04.2026
Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизита табличной части документа
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .
wmic не является внутренней или внешней командой
Maks 02.04.2026
Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
Программная установка даты и запрет ее изменения
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .
Вывод данных в справочнике через динамический список
Maks 01.04.2026
Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа
Maks 01.04.2026
Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .
К слову об оптимизации
kumehtar 01.04.2026
Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru