Question

Рассмотрите программы и напишите словесное условие задач.
Задача 1
Program Ex1;
Var a, b, c: integer;
begin
readln (a, b, c);
if a>b
then
if a>c
then
writeln (a)
else
writeln (c)
else
if b>c
then writeln(b)
else writeln(c);
end.

Задача 2
Program Ex2;
Var a,b,c: integer;
begin
writeln('a=',a';b=',b);
readln(a);
readln(b);
c := a;
a := b;
b := c;
writeln('a=',a';b=',b);
end.
Задача 3
Program Ex3;
Var a, b, c, S: real;
begin
write('Введите a : ');
readln(a);
write('Введите b : ');
readln(b);
S := (a*b)/2;
writeln(S);
end.

Answer 1

1. Нахождение наибольшего из трех целых чисел.

2. Поменять местами значения переменных а и b.

3. Найти площадь прямоугольного треугольника по длинам его катетов.