Курсовая работа: Основы программирования и алгоритмизации

Алгоритм к Заданию №5:

Приложение 1

Текст программы к Заданию №1

program Zadanie1;

var

X1,X2,X3,res:real;

begin

writeln ('Введите результат 1 спортсмена: ');

readln (X1);

writeln ('Введите результат 2 спортсмена: ');

readln (X2);

writeln ('Введите результат 3 спортсмена: ');

readln (X3);

if X1<X2 then res:=X1 else res:=X2;

if res>X3 then res:=X3;

writeln ('Результат победителя заплыва: ', res:10:4);

end.

Решение:

Приложение 2

Текст программы к Заданию №2

programZadanie2;

var

j,B,N: word;

a: array [2..1000] of boolean;

procedure Pch;

var

b,k:word;