program z1;
var a,b,c,m: integer;
begin
write ('a = ');
readln(a);
write ('b = ');
readln(b);
write ('c = ');
readln(c);
if (a=b) and (b=c) then write('Все числа равны')
else
m:=a;
if b<m then m:=b;
if c<m then m:=c;
write('Минимальное: ',m)
end
end.
Объяснение:
Вводим числа
Если числа равны, то выводим сообщение о равенстве
Иначе:
1) принимаем за минимальное число а
2) сравниваем его с остальными числами, при необходимости заменяем значение минимального
3) выводим минимальное число
writeln('Введите числа: ');
var N:Array [1..3] of real;
readln(N[1],N[2],N[3]);
write ((N[1]=N[2]) and (N[2]=N[3])1? 'Все числа равны':'Минимальное '+N.Min.ToString);
(A<>B)? R1:R2 - сокращенная форма оператора if/else, где A,B - сравниваемые значения, R1 - результат, если выражение в скобках верно, R2 - если нет.
N.Min - Находит в массиве наименьший по значению элемент, а .ToString - преобразует его в строку.
program z1;
var a,b,c,m: integer;
begin
write ('a = ');
readln(a);
write ('b = ');
readln(b);
write ('c = ');
readln(c);
if (a=b) and (b=c) then write('Все числа равны')
else
begin
m:=a;
if b<m then m:=b;
if c<m then m:=c;
write('Минимальное: ',m)
end
end.
Объяснение:
Вводим числа
Если числа равны, то выводим сообщение о равенстве
Иначе:
1) принимаем за минимальное число а
2) сравниваем его с остальными числами, при необходимости заменяем значение минимального
3) выводим минимальное число
begin
writeln('Введите числа: ');
var N:Array [1..3] of real;
readln(N[1],N[2],N[3]);
write ((N[1]=N[2]) and (N[2]=N[3])1? 'Все числа равны':'Минимальное '+N.Min.ToString);
end.
Объяснение:
(A<>B)? R1:R2 - сокращенная форма оператора if/else, где A,B - сравниваемые значения, R1 - результат, если выражение в скобках верно, R2 - если нет.
N.Min - Находит в массиве наименьший по значению элемент, а .ToString - преобразует его в строку.