Программы на pascal
1)
var
x, y: real;
begin
writeln('Введите х');
readln(x); //Вводим х
y:= sin(sqr(x));
writeln('y = ', y : 0 : 5); {Печатаем значение у с округлением до 5 знаков после запятой}
end.
2)
var
x, y: real;
begin
writeln('Введите х');
readln(x); //Вводим х
if x >= 0 then y:= cos(x) //Если х >= 0, то у = cosx, иначе у = 1 - 2sinx
else y:= 1 - 2 * sin(x);
writeln('y = ', y : 0 : 5); {Печатаем значение у с округлением до 5 знаков после запятой}
end.
Если все правильно, отметь решение как лучшее)
"Вес" одного символа (включая пробел) принято считать равным 1 байту или 8 битам.
Чтобы узнать сколько текст должен содержать символов, если его "вес" равен 1 гб, нужно узнать, сколько байт в 1 гб.
1 гб = 1024 мб = 1048576 кб = 1 073 741 824 байт, столько же символов, включая пробелы, должен содержать текст.
ответ: 1 073 741 824 символов.