Файл Date.in файл содержит 3 различных целых чисел, разделенных пробелами. Написать программу, которая укажет, какие из чисел является максимальным, минимальным и какие не является ни минимальным, ни максимальным. Результат от...
Файл Date.in файл содержит 3 различных целых чисел, разделенных пробелами. Написать программу, которая укажет, какие из чисел является максимальным, минимальным и какие не является ни минимальным, ни максимальным. Результат отображается на экране и файле date.out.
Гость
Ответ(ы) на вопрос:
Гостьvar
a, b, c, min, max, mid: integer;
f1, f2: Text;
begin
Assign(f1, 'date.in');
Reset(f1);
Read(f1, a, b, c);
Close(f1);
if a > b then begin
max := a; min := b
end
else begin
max := b; min := a
end;
if max > c then begin
if min < c then mid := c
else begin
mid := min; min := c
end
end
else begin
mid := max; max := c
end;
writeln('Меньшее=', min, ' среднее=', mid, ' большее=', max);
Assign(f2, 'date.out');
Rewrite(f2);
Write(f2, min, ' ', mid, ' ', max);
Close(f2)
end.
Не нашли ответ?
Похожие вопросы