Программа: Операции с четырехзначным числом

Задача: Дано четырехзначное число. Определить:

• Равна ли сумма двух первых его цифр сумме двух его последних цифр?

• Кратна ли трем сумма его цифр?

• Кратно ли четырем произведение его цифр?

• Кратно ли произведение его цифр числу а?

PROGRAM chislo4;

var x,z,q,y,w,e,r,sum,proi,a :integer;

BEGIN

Write ('Введите четырехзначное число: ');

Read (x);

y:=x div 1000; {определяем первую цифру y=первая цифра}

z:=x mod 1000; {определяем вторую, третью, четвертую цифру z=вторая,третья,четвертая цифра}

w:=z div 100; {определяем вторую цифру w=вторая цифра}

q:=z mod 100; {определяем вторую третью q=третья, четвертая цифра}

e:=q div 10; {определяем третью e=третья цифра}

r:=q mod 10; {определяем четвертую r=четвертая цифра}

WriteLn ('Цифры наоборот: ',r,e,w,y);

WriteLn ('a) Равна ли сумма первых двух цифр двум последним? ');

if y + w = e + r

then WriteLn ('Равна')

else WriteLn('Не равна');

WriteLn ('б) Кратна ли трем сумма его цифр? ');

sum := y + w + e + r; {сумма всех цифр}

if sum mod 3 = 0 {проверяем кратность суммы цифр к 3}

then WriteLn ('Сумма всех цифр кратна 3')

else WriteLn ('Сумма цифр не кратна 3');

WriteLn ('в) Кратно ли четырем призведение его цифр? ');

proi := y * w * e * r;

if proi mod 4 = 0 {проверяем кратность произведения цифр к 4}

then WriteLn ('Произведение всех цифр кратно 4')

else WriteLn ('Произведение цифр не кратно 4');

WriteLn (proi);

WriteLn ('Введите число чтобы проверить кратно ли произведение ему:');

Read (a);

if proi mod a = 0 {проверяем кратность a}

then WriteLn ('Произведение всех цифр кратно ',a)

else WriteLn ('Произведение всех цифр не кратно ', a);

END.

Программа: Вычисление цены на обои

Задача: Вычислить цену на обои с учитывая все стены, окно и дверной проем. Все параметры вводятся с клавиатуры. Цена за 1 рулон обоев также вводится с клавиатуры.

PROGRAM oboi;

var a,b,a1,b1,a2,b2,a3,b3,d,s,cena,ploshad_a,ploshad_b,ploshad_rul,kol_rul,ploshad_dv,ploshad_ok,pk,proi,rab :real;

BEGIN

WriteLn('Введите длину и высоту первой стороны соответствено: ');

ReadLn (a,b);

WriteLn('Введите длину и высоту второй стороны соответствено: ');

ReadLn (a1,b1);

WriteLn('Введите длину и высоту дверного проема соответствено: ');

ReadLn (a2,b2);

WriteLn('Введите длину и высоту проема для окна соответствено: ');

ReadLn (a3,b3);

WriteLn('Введите длину и ширину обоев соответствено: ');

ReadLn (d,s);

WriteLn ('Введите цену на рулон обоев:');

ReadLn (cena);

ploshad_a:=a * b;

ploshad_b:=a1 * b1;

ploshad_rul:=d * s;

ploshad_dv:=a2 * b2;

ploshad_ok:=a3 * b3;

pk:=2 * (ploshad_a + ploshad_b);

proi:=ploshad_dv + ploshad_ok;

rab:=pk - proi;

WriteLn ('Площадь стен:',rab,' кв.метров');

kol_rul:=rab / ploshad_rul;

WriteLn ('Понадобится:',kol_rul,' рулонов');

cena:=cena * kol_rul;

WriteLn ('Цена всех рулонов:',cena,' руб.');

END.