Помогите, очень прошу! Очень нужно
5-9 класс
|
1)
uses SysUtils, Math;
var
k: integer;x, y, z: real;
begin
k := 2;
y := sin(sqrt(k * k * k + 1))/sqr(cos(7 / (2 * k)));
x := power((k + 1) / (k - 1), 8);
z := (1 + sqr(sin(sqr(x + 1))))/ cos(1.2* y - 4);
writeln(y:0:5,' ',x:0:5,' ',z:0:5);
end.
2)Площадь окр
2) про кубы var a1,a2,a3:real;a:integer;beginreadln(a);a1 := sqrt(a);a2 := a*a;a3 := a*a*a;write(a1, ' ', a2, ' ', a3);end.
Другие вопросы из категории
выведите число -1, а если не встречается ни разу, выведите число -2
P.S. У кого был планшет digma optima 7.1 пожалуйста ответьте: как вы получили root права на планшет то никак не получается много прог перепробовал.
Читайте также
программа фриПаскаль!
Составьте программу выводящую на экран мое имя "Алиса"
Помогите,очень прошу!
сел - отрицательное, то найти Iа+ b+cI иначе а+b+c +d в корне.
Даны три числа. Если произведение данных чисел - отрицательное, то каждое число возвести в квадрат, иначе найти модуль каждого числа
ПОМОГИТЕ ОЧЕНЬ ПРОШУ
латинской раскладки клавиатуры:A,S,D,F,G,H,J,K,L. Каждый такой пароль в компьютерной программе записывается минимально возможным и одинаково целым кол-вом байт. Определите объем памяти,отводимой этой программой для записи 25 паролей.
Помогите,очень прошу)
тема у нас Организация ветвлений в Паскале. и так, вопрос:
дано трёхзначное число. если сумма цифр числа кратно 3, тогда перевернуть число, иначе обнулить среднюю цифру
очень срочно, кто может