===== PascalABC.NET =====
begin
var a := ReadReal('Введи значение синуса угла:');
var b := Sqrt(1 - a * a);
Print('Коснус этого угла равен', b)
end.
Пояснение: sin²x + cos²x = 1
Program spinogryz21;
var
x, i: integer;
yes: boolean;
begin
yes := FALSE;
write('Введите число Х ');
readln(x);
for i := 1 to 4 do
begin
if (x mod 10) = 6 then yes := TRUE;
x:=x div 10;
end;
if yes then writeln('6 входит в число Х')
else writeln('6 не входит в число Х');
end.
Program gt;
var n,k,t:integer;
begin
read(n,k);
t:=0;
while n>=k do
begin
n:=n-k;
t:=t+1;
end;
writeln(t);
end.
1байт=8бит;
1Килобайт=1024байта;
1Мегабайт=1024Килобайта;
1Гигабайт=1024Мегабайта;
2^28=268435456 бит;
268435456\8=33554432 байт;
33554432\1024=32768Килобайт;
32768\1024=32Мегабайт;
32\1024=0.03125Гигабайт.