Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.