Найти минимум из трех введенных с клавиатуры чисел (числа различные, полное ветвление)
Пример с двумя числами:
Program Max;
Var a, b: integer;
begin
readln(a, b);
if (a>b) then writeln(a, ' - максимум ')
else writeln(b, ' - максимум ');
end.
236
442
Ответы на вопрос:
program aaa;
Uses crt;
Var a,b,c,min:integer;
Begin
clrscr;
Write ('A=');
Readln (a);
Write ('B=');
Readln (b);
Write ('C=');
Readln (c);
If (a<c) and (a<b) then min:=a;
If (b<a) and (b<c) then min:=b;
If (c<a) and (C<b) then min:=c;
writeln (' Minimalnoe chislo =',min);
Readln
end.
Популярно: Информатика
-
Ярослав1234567815.11.2020 10:04
-
Vikusya1810111.09.2020 08:11
-
likarabigba19.02.2020 05:38
-
naaaaaayli12.03.2022 23:18
-
tetysheva0928.09.2022 12:26
-
luzhtzkayanasty27.01.2021 01:24
-
Ульянатв04.03.2023 16:01
-
maximt02516.05.2023 17:22
-
tanyapishulovaoyc3lb03.09.2021 20:42
-
Dashylka809.02.2020 10:08