Лучшие помощники
- Megamozg 2180 б
- Matalya1 1800 б
- DevAdmin 1685 б
- arkasha_bortnikov 805 б
- Dwayne_Johnson 800 б
6 декабря 2022 17:53
742
Напишите программу, которая выбирает максимальное и минимальное из трёх введённых чисел. Pascal
2
ответа
PascalABC.Net
program MyProg;
var
max_a, max1, min_a, min1, a, b, c: longint;
begin
writeln('Введите три числа');
readln(a, b, c);
min1 := min(a, b);
min_a := min(min1, c);
max1 := max(a, b);
max_a := max(max1, c);
writeln('Максимальное число ', max_a);
writeln('Минимальное число ', min_a);
end.
program MyProg;
var
max_a, max1, min_a, min1, a, b, c: longint;
begin
writeln('Введите три числа');
readln(a, b, c);
min1 := min(a, b);
min_a := min(min1, c);
max1 := max(a, b);
max_a := max(max1, c);
writeln('Максимальное число ', max_a);
writeln('Минимальное число ', min_a);
end.
0
·
Хороший ответ
8 декабря 2022 17:53
Var
a,b,c,max,min:integer;
Begin
Readln(a,b,c);
if (a>b) and (a>c) then max:=a;
if (b>a) and (b>c) then max:=b;
if (c>a) and (c>b) then max:=c;
if (a<b) and (a<c) then min:=a;
if (b<a) and (b<c) then min:=b;
if (c<a) and (c<b) then min:=c;
Writeln('Максимальное значение - ', max, 'Минимальное - ', min);
end.
a,b,c,max,min:integer;
Begin
Readln(a,b,c);
if (a>b) and (a>c) then max:=a;
if (b>a) and (b>c) then max:=b;
if (c>a) and (c>b) then max:=c;
if (a<b) and (a<c) then min:=a;
if (b<a) and (b<c) then min:=b;
if (c<a) and (c<b) then min:=c;
Writeln('Максимальное значение - ', max, 'Минимальное - ', min);
end.
0
8 декабря 2022 17:53
Остались вопросы?
Еще вопросы по категории Информатика
1) Чему будут равны значения в ячейках А6 и В6 после выполнения команды КОПИРОВАТЬ А2:В2 в А3:В6? 2) В ячейке A1 находится формула. Формулу из ячейки...
Помогите пожалуйста в питоне (Python).Надо найди самое длинное слово в строке со словами. Без модулей. Даю 15 баллов. Буду очень благодарен, если реши...
В каком случае разные файлы могут иметь одинаковые имена? 1) если они имеют разный размер; 2)если они созданы в разное время; 3) если они находятся в...
составьте блок-схему алгоритма выполнения домашнего задания по математике, состоящего из нескольких примеров. Оформите блок-схему в графическом редакт...
1) Что такое кривая Безье? 2)какие режимы построения кривых? 3) Можно ли заменить направление рисунков, нарисованных кривыми линиями? 4) в какие сто...
Все предметы