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 - преобразует его в строку.
# python 3.6.2
while True:
reelLength = int(input('Введите длину мотка (от 1 до 100): '))
if reelLength <= 100 and reelLength >= 1:
break
else:
print('Неверный ввод!')
reelNum = 0
while True:
segmentLength = int(input('Введите длину куска (от 1 до 100): '))
if segmentLength <= 100 and segmentLength >= 1:
if segmentLength < reelLength:
reelLength -= segmentLength
reelNum += 1
continue
if segmentLength == reelLength:
reelLength -= segmentLength
reelNum += 1
print(f'Количество кусков: {reelNum:d}; Длина остатка: {reelLength:d}')
break
else:
print('Неверный ввод!')
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) выводим минимальное число