Write a program that asks for three numbers and determines the largest of them.
| May 26, 2021 | education
Program maksimaljnoe_chislo;
Var a, b, c, max: real;
Begin
CLRSCR;
Writeln (‘enter the first number a =’);
Readln (a);
Writeln (‘enter the second number b =’);
Readln (b);
Writeln (‘enter the first number c =’);
Readln (c);
Max: = a;
If max <b then max: = b;
If max <c then max: = c;
writeln (‘the maximum of the numbers max =’, max: 5: 2);
repeat until keypressed;
END.
One of the components of a person's success in our time is receiving modern high-quality education, mastering the knowledge, skills and abilities necessary for life in society. A person today needs to study almost all his life, mastering everything new and new, acquiring the necessary professional qualities.
