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.
№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
writeln('Остроугольный') else
if (a=90) or (b=90) or (180-a-b=90) then
writeln('Прямоугольный') else
writeln('Тупоугольный');
end.
Я очень люблю уроки информатики. Это мой любимый урок. Там всегда весело и интересно. Каждый раз я узнаю что-то новое. Каждый урок не похож на другой, в школе такое бывает редко. Мне нравится работать на компьютере.
На самых первых уроках мы изучали Paint-рисовали разные плакаты и рисунки, дальше уже сложнее: создавали таблицы с разными цифрами, буквами и рисунками. Еще мне нравится интерактивная доска. На ней мы рисуем и выполняем задания специальным карандашом с батарейками. На большом экране мы видим монитор учителя, и всему классу наглядно понятно, что и как делать.
Еще на уроках информатики мы учимся находить в интернете нужную информацию и смотрим разные города со спутника. Это очень интересно. Сразу создается впечатление, что ты побывала в новом месте и увидела много нового.
У нас очень хороший учитель. Она всё объясняет и показывает. .