Ответы
Ответ дал:
0
А)
var a,b:integer;
begin
writeln ('Введите два целых числа:');
read (a,b);
if a > b then begin
writeln ('Наибольшее число ',a);
writeln ('Наименьшее число ',b);
end
else begin
writeln ('Наибольшее число ',b);
writeln ('Наименьшее число ',a);
end;
end.
В)
var a,b,c,d,max:integer;
begin
writeln ('Введите четыре целых числа:');
read (a,b,c,d);
max:=a;
if b > max then begin
max:=b;
end;
if c > max then begin
max:=c;
end;
if d > max then begin
max:=d;
end;
writeln ('Максимальное число ',max);
end.
Ответ дал:
0
Не предусмотрен вариант введённых равных чисел
Ответ дал:
0
Возможно, не увидел этот нюанс, спасибо за ваше дополнение
Вас заинтересует
1 год назад
2 года назад
7 лет назад
8 лет назад