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

1

program Lift;

uses crt;

const h=8;d=10;m=87;g=75;max=500;

var x,y:real;

BEGIN

Writeln('vedit kl khlopciv');

read(x);

y:=8*x;

if y<=max then writeln('lift poide')

else writeln('lift ne poide');

Writeln('vedit kl divchat');

read(x);

y:=10*x;

if y<=max then writeln('lift poide')

else writeln('lift ne poide');

Writeln('vedit kl cholovikiv');

read(x);

y:=87*x;

if y<=max then writeln('lift poide')

else writeln('lift ne poide');

Writeln('vedit kl jinok');

read(x);

y:=75*x;

if y<=max then writeln('lift poide')

else writeln('lift ne poide');

readln;

END.

............................................
Перевірка
Вхід
Хлопчиків 5-поїде ліфт
Дівчат 6-ліфт поїде
Чоловіків 15 - ліфт не поїде
Жінок  3 - ліфт поїде
................................................

2

program Lift_2;

uses crt;

const h=8;d=10;m=87;g=75;max=500;

var x,y,c,n,b:real; u:byte;

BEGIN

Repeat

Writeln('vedit kl khlopciv');

read(x);

Writeln('vedit kl divchat');

read(y);

Writeln('vedit kl cholovikiv');

read(c);

Writeln('vedit kl jinok');

read(n);

b:=(x*8)+(y*10)+(c*87)+(n*75);

if b<=max then writeln('lift poide')

else writeln('lift ne poide');

Writeln('zakinchutu=0 prodovjitu=2');

Read(u);

until u=0;

END.

...........................................

Перевірка

Вхід 

Хлопчиків 5-поїде ліфт

Дівчат 6-ліфт поїде

Чоловіків 15 - ліфт не поїде  

Жінок  3 - ліфт поїде

...............................................

3

program schasluvui_kvutok;

uses crt;

var x,y,n,m,s,f,r:integer;

BEGIN

writeln('vvedit nomer kvutka');

read(x);

y:=x mod 10;

m:=x mod 100 div 10;

n:=x mod 1000 div 100;

s:=x  div 1000;

f:=(s+n);

r:=(m+y);

if f=r then writeln('schasluvui_kvutok')

else writeln ('obuchnui kvutok');

readln;

Readln;

END.
.............................................
Перевірка
Вхід 5
Вихід звичайний квиток
.............................................

4

program plosha_kola_kvd;

uses crt;

Var a,b,c,d:real;

BEGIN

write('a=');read(a);

write('b=');read(b);

d:=sqrt(a/pi); c:=sqrt(b);

if d>c then writeln('radius')

else writeln('storona');

END.

..........................

Перевірка

Вхід 34,43

Вихід сторона

............................

5

Дано два різних дійсних числа. Знайдіть найбільше.

program diusne_czislo;

uses crt;

Var a,b,c:real;

BEGIN

write('a=');read(a);

write('b=');read(b);

if a>b then writeln('a bilshe')

else writeln('b bilshe');

END.

...........................

Перевірка

Вхід а=34,b=43

Вихід b більше 

...................................

6 

Дано ціле число. Визначте, чи закінчується воно цифрою 7.

program Viznachennya;

uses crt;

Var a,b,c:integer;

BEGIN

write('a=');read(a);

b:=a mod 10;

if b=7 then writeln('zakInchuEtsya')

else writeln('ne zakInchuEtsya');

END.

...............................

Перевірка

Вхід 47

Вихід закінчується 

..................................

7

З’ясувати, чи є парним числом сума чисел a та b.program Parnist;
uses crt;
BEGIN
Write(a);
Write(b);
read(a,b);
if (a mod 2=0) Then writeln('parne')
else writeln('ne parne');
if (b mod 2=0) Then writeln('parne')
else writeln('ne parne');
END.

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

.............................

8

Дано (x, y) координати клітинки шахової дошки. З’ясуйте колір клітинки. (Клітинка (1; 1) – чорна).

program shahova_doshka;
uses crt;
var a,b,c:integer;
BEGIN
Writeln(a,b);
REad(A,b);
if (a mod 2=0) and(b mod 2=0) Then writeln('bile')
else writeln('chorne');
END.
............................
Перевірка
Вхід 2;2
Вихід Біле
............................