ПОЧЕМУ НЕ РАБОТАЮТ ЭТИ ПРОГРАММЫ Дано три целых числа. Минимальное из них присвоить
дополнительной переменной и вывести результат, используя: логические выражения (с and/or)
var
a,b,c,min:integer;
begin
readln (a,b,c);
if b>a and c>a then min:=a;
if c>b and a>b then min:=b;
if b>c and a>c then min:=c;
writeln (min);
end.
Дано четыре целых числа. Максимальное из них присвоить
дополнительной переменной и вывести результат, используя: логические выражения (с and/or)
var
a,b,c,d,max:integer;
begin
readln (a,b,c);
if b>a and b>c and b>d then max:=b;
if a>b and a>c and a>d then max:=a;
if c>a and c>d and c>d then max:=c;
if d>a and d>c and d>b then max:=d;
writeln (min);
end.
263
275
Ответы на вопрос:
Различия векторной и растовой графики в том что векторная графика это закраска клеток а расточая это фигуры
Популярно: Информатика
-
dianakokorina9126.07.2022 00:44
-
Аксинья2122.01.2020 18:43
-
милка30802.09.2021 19:52
-
Анимешник959530.08.2022 03:24
-
SRALIK27.01.2023 20:39
-
gulabyan4223.09.2020 20:48
-
lamsjsj07.03.2022 20:19
-
Димооон102.11.2020 05:45
-
Rinochek1913.01.2022 07:54
-
Kotya00529.02.2020 17:15