Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
mdasa7375
22.01.2023 18:08 •
Информатика
Написать программу нахождения наиболее наибольшего из трех чисел pascal
Показать ответ
Ответ:
OT7
26.06.2020 16:12
Program chik;
var a,b,c,min:real;
begin
read(a,b,c);
min:=a;
if(b>min)then min:=b;
if(c>min)then min:=c;
writeln(min);
end.
0,0
(0 оценок)
Ответ:
systemka470
26.06.2020 16:12
Program chisla;
var a,b,c,max:real;
begin
readln(a,b,c);
if (a>b) and (a>c) then max:=a;
if (a<b) and (b>c) then max:=b
if (a<c) and (b<c) then max:=c;
writeln(max);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
stepabogocev37
03.08.2021 02:24
В двумерном массиве размерностью n×m, все элементы которого различны, требуется найти такие элементы, которые одновременно являются минимальными в своей строке и максимальными...
akoa
01.03.2022 18:14
Якых познавший будут зміна b після виконання умовного оператора If, якщо а =10? 20 10 9 11...
basovaolga67
10.10.2021 18:23
Эксельтан загрузка файыллары, хартыына. ДокСан &НаКлиенте Процедура АдресКартинкиНажатие(Элемент, СтандартнаяОбработка) Оповещение = Новый ОписаниеОповещения ( , ЭтотОбъект);...
eliseyivanov9
21.09.2021 15:52
Доказать, что первая формула логически влечет вторую формулу. 1) ¬(А∨В); ¬(А∧В). 2) А; ¬¬А....
lubenkovalilia2
22.09.2021 17:22
Установить, является ли предложение высказыванием, и если является, истинно оно или ложно. а) Волга впадает в Каспийское море б) 2 4 в) Пустое множество г)...
mrfenics
01.08.2020 18:14
Петя Торопыжкин познакомился с гипотезой Коллатца: какое бы натуральное число a0 ни взять, последовательность (часто называемая сиракузской ), вычисляемая от выбранного числа по...
feruzbek214
20.08.2020 01:14
Питон , Магическим квадратом называют таблицу, в которой записаны числа 1,2,3,… по одному разу, так что сумма чисел в каждой строке и в каждом столбце равные. Мы расскажем вам...
shvok
27.05.2023 19:51
Найти сумму тех элементов массива, которые имеют положительные значения(для Паскаль)...
Ksenya356
25.03.2023 11:14
Даны два числа х и у. Если х и у отрицательны, то каждое значение заменить его абсолютной величиной. Если отрицательно только одно из них, то оба значения увеличить на 5, иначе...
Sashalizanika
07.09.2021 15:03
Задача 2. Складіть програму для обчислення F = x+x2 + x3 + +хт для х —0.1, 0.2...1.0 i введеного з клавіатуризначення.n.Составит програму вычисления F= x+x2 + x3 + +хт для х —0.1,...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a,b,c,min:real;
begin
read(a,b,c);
min:=a;
if(b>min)then min:=b;
if(c>min)then min:=c;
writeln(min);
end.
var a,b,c,max:real;
begin
readln(a,b,c);
if (a>b) and (a>c) then max:=a;
if (a<b) and (b>c) then max:=b
if (a<c) and (b<c) then max:=c;
writeln(max);
end.