Умовний оператор.

1.
Обчислення функцій.

program Obshuslennia_fynkcii;

uses CRT;

Var x,y:real;

BEGIN
Write('x=');
Read(x);
if x<5 then
y:=(4*sqr(x)+1)/(x-5)
else
y:=3*sqr(x)-2;
Writeln(y:1:2);
END.

Перевірка
Вхідні:
x-4;
Вихідні:
-65.00;

Вхідні:
x-5;
Вихідні:
73.00;

Вхідні:
x-1;
Вихідні:
-1.25;

2. Добуток своїх цифр.

program zrazok;

uses CRT;

Var x,c1,c2,c3,p:integer;

BEGIN
Read(x);
c1:=x div 100;
c2:=x div 10 mod 10;
c3:=x mod 10;
p:=c1*c2*c3;
if x mod p =0 then writeln('yes') else writeln('no');
END.

Перевірка
Вхідні:
x-222;
Вихідні:
no;

Вхідні:
x-122;
Вихідні:
no;

Вхідні:
x-112;
Вихідні:
yes;

3.
Ліфт

program Lift;

uses CRT;

Const hl=8;
      dv=10;
      dt=82;
      gn=75;
      max=500;

Var a,b,c,d,t,f,x,y:integer;

BEGIN
Writeln('Vvestu kilkist hl.');
Read(x);
y:=x*hl;
if y<500 then Writeln('yes') else Writeln('no');

Writeln('Vvestu kilkist dv.');
Read(a);
b:=a*dv;
if b<500 then Writeln('yes') else Writeln('no');

Writeln('Vvestu kilkist dt.');
Read(f);
t:=f*dt;
if t<500 then Writeln('yes') else Writeln('no');

Writeln('Vvestu kilkist gn.');
Read(c);
d:=c*gn;
if t<500 then Writeln('yes') else Writeln('no');
END.

Перевірка
Вхідні:
a-60;
Вихідні:
yes;

Вхідні:
b-49;
Вихідні:
yes;

Вхідні:
c-35;
Вихідні:
no;


Вхідні:
d-30;
Вихідні:
no;

4.
program Lift_2;

uses CRT;

Const hl=8;
      dv=10;
      dt=82;
      gn=75;
      max=500;

Var a,b,c,d,x:integer;

BEGIN
Writeln('Vvestu kilkist hl. dv. dt. gn.');
Read(a);
Read(b);
Read(c);
Read(d);
x:=a*hl+b*dv+c*dt+d*gn;
if x<500 then Writeln('yes') else Writeln('no');
END.

Перевірка
Вхідні:
a-2;
b-2;
c-2;
d-2;
Вихідні:
yes;

Вхідні:
a-1;
b-3;
c-4;
d-2;
Вихідні:
no;

Вхідні:
a-2;
b-4;
c-3;
d-1;
Вихідні:
yes;

5.
 Що більше.

program Kolo_ta_kvadrat;

uses CRT;

 Var skr,skv,a,r:real;

BEGIN
  write('skr= ');
  read(skr);
  write('skv= ');
  read(skv);
  r:=sqrt(skr/pi);
  a:=sqrt(skv);
  if r>a then writeln('radiys')
         else writeln('stapona');
END.

Перевірка
Вхідні:
str-100;
stv-100;
Вихідні:
storona;

Вхідні:
skr-100;
skv-50;
Вихідні:
radiys;

Вхідні:
skr-100;
skv-25;
Вихідні:
storona;

6.
Різні дійсні числа.

program Diysni_shusla;

uses CRT;

Var a,b:real;

BEGIN
Write('a=');
Read(a);
Write('b=');
Read(b);
if a>b then writeln('a diysne') else writeln('b diysne');
END.

Перевірка
Вхідні:
a-50;
b-100;
Вихідні:
a diysne;

Вхідні:
a-100;
b-50;
Вихідні:
b diysne;

Вхідні:
a-100;
b-100;
Вихідні:
b diysne;

7.
Чотирьохзначні числа.

program Shoturoxznashne_shuslo;

uses CRT;

Var a,b,c:integer;

BEGIN
Writeln('Vvedit 4 shuslo');
Read(a);
b:=a div 100;
c:=a mod 100;
Writeln(b,',',c);
if (b>c) then writeln('b>c') else writeln('b<c');
END.

Перевірка
Вхідні:
a-3961;
Вихідні:
b<c;

Вхідні:
a-2415;
Вихідні:
b>c;

Вхідні:
a-2951;
Вихідні:
b<c;

8.
program Syma_parnux;

uses CRT;

Var c1,c2,c3,s:integer;

BEGIN
Read(c1,c2,c3);
s:=0;
if c1 mod 2=0 then s:=s+c1;
if c2 mod 2=0 then s:=s+c2;
if c3 mod 2=0 then s:=s+c3;
Writeln(s);
END.

Перевірка
Вхідні:
c1-6;
c2-24;
c3-12;
Вихідні:
s-42;

Вхідні:
c1-36;
c2-4;
c3-10;
Вихідні:
s-50;

Вхідні:
c1-39;
c2-14;
c3-24;
Вихідні:
s-38;

Вхідні:
c1-57;
c2-31;
c3-17;
Вихідні:
s-0;

9.
program Syma_tux_diliacia_na_5;

uses CRT;

Var c1,c2,c3,s:integer;

BEGIN
Read(c1,c2,c3);
if c1 mod 5=0 then s:=s+c1;
if c2 mod 5=0 then s:=s+c2;
if c3 mod 5=0 then s:=s+c3;
Writeln(s);
END.

Перевірка
Вхідні:
c1-5;
c2-10;
c3-20;
Вихідні:
s-35;

Вхідні:
c1-10;
c2-15;
c3-19;
Вихідні:
s-25;

Вхідні:
c1-15;
c2-14;
c3-24;
Вихідні:
s-15;

Вхідні:
c1-36;
c2-51;
c3-16;
Вихідні:
s-0;