Написать программы к задачам ** Паскале.1. Аквариум - куб со стороной а метров. Рыба -...

Question

Написать программы к задачам на Паскале.
1. Аквариум - куб со стороной а метров. Рыба - шар, диаметр b см. Подсчитать количество выплеснутой воды.
2. Является ли шестизначный номер счастливым.
3. По двум углам определите вид треугольника.
4. Два отрезка заданы координатами своих концов. Определить количество общих точек этих отрезков.

Answer 1

1) 

var v1,a,v2,v3,d:integer;

begin

readln(a,b);

a:=a/10;

v1:=a*a*a;

v2:=4/3*3,14*(d/2)(d/2)(d/2);

v3:=v1-v2;

Writeln("Объем выплеснутой воды ",v3);

readln();

end.

 

2) 

var

i,num,a,b,c,d,e,f, sum1,sum2:integer;

 

begin

readln(num);

a:=num div 100000;

num:=num mod 100000;

b:=num div 10000;

num:=num mod 10000;

c:=num div 1000;

num:= num mod 1000;

d:=num div 100;

num:= mod 100;

e:=num div 10;

f:=num mod 10;

 sum1:=a+b+c;

sum2:=d+e+f;

If (sum1=sum2) then

Writeln("Да, является.");

else writeln("Нет, не является.");

readln();

end.

 

 

 

 

Answer 2

№1

var
a,b,v:real;
begin
readln(a,b);
v:=4/3*Pi*sqr(b/2)*(b/2);
a:=sqr(a)*a;
v:=a-v;
writeln(v:7:4);

end.

 

№2

var
s:string[6];
begin
readln(s);
if ((strtoint(s[1])+strtoint(s[2])+strtoint(s[3]))=
(strtoint(s[4])+strtoint(s[5])+strtoint(s[6]))) then
writeln('Является') else
writeln('Не является');

end.

 

№3

var
a,b:integer;
begin
readln(a,b);
if (a<90) and (b<90) and (180-a-b<90) then<br> writeln('Остроугольный') else
if (a=90) or (b=90) or (180-a-b=90) then
writeln('Прямоугольный') else
writeln('Тупоугольный');
end.