Ответы на вопрос:
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.
Популярно: Информатика
-
olleandro04.08.2021 04:01
-
alisalis29006.02.2023 04:53
-
Apostol137822.12.2020 03:09
-
Икари30120223.08.2022 21:13
-
SASA760950831.01.2022 18:59
-
hdhdydjsh22.01.2021 21:56
-
Kotnakompe14.12.2020 16:23
-
ььь5527.02.2021 05:57
-
soffia24200409.12.2021 09:50
-
zebra6022.04.2022 13:11