Question

30 БАЛЛОВ! (написать на паскале)

Answer 1

1.

Var
   a,b,c:real;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
Write('c = ');
ReadLn(c);
if (a>=b)and(a>=c) then WriteLn('Max(a,b,c) = a = ',a);
if (b>=a)and(b>=c) then WriteLn('Max(a,b,c) = b = ',b);
if (c>=a)and(c>=b) then WriteLn('Max(a,b,c) = c = ',c);
End.


2.

Var
   A:real;
Begin
Write('Введите число: ');
ReadLn(A);
if A = Int(A) then
   Begin
   Write('Данное число - целое и ');
   if frac(A/2) = 0 then Write('чётное')
   else Write('нечётное')
   End
else Write('Данное число - дробное')
End.


3.

Var a:real;
Begin
Write('a = ');ReadLn(a);
if a>5 then a:=2*a
else a:=3*a;
WriteLn('a = ',a)
End.