_інформ_2017

Розв’язування задач
Розглянемо приклади програм з використанням умовного оператора.
1. Дано два дійсних числа, вивести на екран більше із них.
Program UMOVA; VarA,B: integer;
begin
write('A=');readln(A);
write('B=');readln(B);
if A>B then writeln('A більше В')
else writeln('B більше А'); end.
2.Скласти програму обчислення значення функції:
x,
якщо x 0;
y 5,
якщо 0 x 5;
5x,
якщо x 5.
Розв'язок.
Program PFUNCTION;
VarX,Y:real;
begin
write('X=');readln(X);
ifX