Написать программы к на паскале. 1. аквариум - куб со стороной а метров. рыба - шар, диаметр b см. подсчитать количество выплеснутой воды. 2. является ли шестизначный номер счастливым. 3. по двум углам определите вид треугольника. 4. два отрезка заданы координатами своих концов. определить количество общих точек этих отрезков.
Ответы на вопрос:
№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( 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 writeln('остроугольный') else if (a=90) or (b=90) or (180-a-b=90) then writeln('прямоугольный') else writeln('тупоугольный'); end.
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.
Популярно: Информатика
-
Asala21306.09.2020 23:02
-
Jubile10.01.2023 07:08
-
Эвелина201906.08.2021 04:43
-
polinapolina134120.10.2020 00:23
-
ШимериШайн14.01.2020 00:21
-
Onik200226.03.2023 19:05
-
666666ник11.08.2020 03:05
-
100Виктория10026.01.2021 04:05
-
ilyazavrik20.10.2020 08:41
-
konovalov20107.05.2022 15:22