Программы на 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.
Если все правильно, отметь решение как лучшее)
Аудиофайл для колонок.
Видеофайл для монитора.
Текстовый файл для монитора.
Графический файл для монитора.
Скорее всего неверный подбор - принтер. Объясни свой вопрос поподробнее.
Абсолютная ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
Системный блок компъютера
Var bads = ["Жадина – говядина,Пустая шоколадина.", "Ябеда, ябеда! Ябеда – корябеда!", "Обманули простака – На четыре кулака"];
var rand = Math.floor(Math.random() * bads.length)
alert( bads[rand] ); // вывести