Написать программы к задачам на Паскале.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.
