Практические задания

Билет 21

2. Задача на разработку алгоритма (программы), содержащей команду (оператор) ветвления.

Задача. Написать программу ввода с клавиатуры трех различных целых чисел в переменные А, В, С.
Требуется в программе преобразовать исходные данные так, чтобы в переменной А оказалось наименьшее число,
в переменной В оказалось среднее число, в переменной С - наибольшее число.

Решение:

Program cffc;
Var k, n, d, a, b, c: integer;
Begin
Writeln ('Vvod chisel');
Readln (k, n, d);
If k Begin
if k Begin
Writeln ('b=',n);
Writeln ('c=',d);
end
Else
begin
Writeln ('b=',d);
Writeln ('c=',n);
end;
end
Else
Begin
Writeln ('a=',n);
Writeln ('b=',k);
Writeln ('c=',d);
end
Else
Begin
if n Begin
Writeln ('a=',n);
Writeln ('b=',d);
Writeln ('c=',k);
end;
end;
Readln;
end.

Сайт создан в системе uCoz