№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.
Смысл этой задачи проверить в том , что является ли сумма предыдущих чисел , заданному числу . Вот и вся программа !
37)var a,b,c : real;begin readln(a, b); begin if a >= b then writeln(b, a) else writeln(a,'и', b) end; if a >= b then b:= b*a*2 else a:= b*a*2; if a>= b then a:= (a+b)/2 else b:= (a+b)/2;writeln(a,'и',b);end.
Можно через интернет программа называется мультатор
можно рисовать много картинок и с помощью фотоаппарата и например фотошоп сделать гиф анимауию
Открываем виндовый калькулятор, выбираем режим "программирование"
1) 49_10 вбиваем в калькулятор и нажимаем равно
HEX это 16 ричные = 2А
OCT это 8 ричные = 52
BIN это двоичные = 00101010
2)109 (не забыть выбрать режим DEC - десятичные числа) = 1101101 BIN 7 единичек
3) переключаем в двоичный режим, вбиваем перво число, плюс, второе число, равно 00100100
4)переключаем в двоичный режим, вбиваем перво число, минус, второе число, равно 1010
5)переключаем в двоичный режим, вбиваем перво число, умножить, второе число, равно 10010001
6) вбиваем 45 в десятичном режиме и переключаем режимы пока не встретим число 55, это оказывается восьмиричный режим, значит х=8