Помогите пожалуйста составить программу в паскаль
10-11 класс
|
Program pr;
uses crt;
Var a,b,c,s,k,y:real;
Begin
Writeln('Введите a,b,c');
readln(a,b,c);
s:=sqrt(a+exp(3*ln(b)))/(3*c);
k:=s-sqrt(abs(a*b*c));
y:=s+k-3/(b*c);
Writeln('y=', y);
readln;
end.
Качество изобразения плохое. так, что могут быть ошибки в формулах.
uses crt;
var s,k,y:real;
a,b,c:integer;
begin
readln(a,b,c);
if a+power(b,3)<0 then writeln('ERROR: Отрицательное число под корнем')
else
begin
s:=sqrt(a+power(b,3))/(3*c);
k:=s-sqrt(abs(a*b*c));
y:=s+k-3/(b*c);
writeln(y);
end;
можно чуть больше картинку? здесь не очень хорошо видно.
а вы нажмите на изображение, чтобы открыть его
я не тупая) просто мелкие символы, вроде степени, не видно.
Другие вопросы из категории
если известно, что они покрашены в шахматном порядке и клетка (1, 1) - белая.
Формат входных данных
Первая строка входного файла содержит единственное целое N (1 <= N <= 10).
Формат выходных данных
Выведите N строк в каждой N символов соответствующий цвету этой ячейки: ‘W’ – если белая и ‘B’ – если черная.
1 написать программу которая вводит с клавиатуры одномерный массив из 10 целых двузначных чисел выводит количество элементов > 28 и их среднее арифметическое
2 написать программу которая выводит с клавиатуры одномерный массив из 6 целых чисел и выводит нечётные
3 написать программу ввода с клавиатуры последовательность целых чисел вычисляющую кол-во и сумму положительно ввёдных чисел
Читайте также
1. Напишите программу формирования и вывода массива размером 6x3, каждые три последовательных элемента в строке которого составлены по следующему правилу:
1-й — равен случайному числу;
2-й — равен целой части квадратного корня из предыду щего элемента;
3-й-равен сумме двух предыдущих элементов.
Составить программу перевода натурального числа из десятичной системы счисления в двоичную