Program one;
var a,b,c:real;
begin
Readln(a,b,c);
writeln((b+sqrt(b*b+4*a*c))/2*a - a*a*a*c+1/(b*b))
end.
program two;
var a,b,c,d:real;
begin
Readln(a,b,c,d);
writeln((a/c)*(b/d)- (a*b-c)/(c*d))
end.
program three;
var x,y:real;
begin
Readln(x,y);
writeln((Sin(x)+cos(y))/(Cos(x)-sin(y))*tan(x*y))
end.
program four;
var x,y:real;
begin
Readln(x,y);
writeln((x+y)/(y+1)-((x*y)-12)/(34+x))
end.
(Начало) Print:("Введите число A")
[Ввод А] Int(input())
/B=A××2. B=A××2
[Вывод B] Print("B="B)
(Конец)
можно снять какой нибудь смешной сюжет
или страшилку
1) 2²³бит=2²⁰байт, поскольку 8 бит=2³
2) 256 символьный алфавит, это значит, что 256=
, i=8 бит на каждый символ