Из произведения 4785 и 302 вычесть 45 в кубе. Результат разделить на 50.
10-11 класс
|
program zadacha;
uses crt;
var otvet:real;
begin
otvet:= ((4785*302)-(45*45*45))/50;
writeln(otvet:5:5);
readkey;
end.
Другие вопросы из категории
Читайте также
языков программирования алгоритм,позволяющий найти среднее арифметическое нечетных трехзначных чисел,записанных в этом массиве.если ни одного такого числа нет,нужно вывести сообщение об этом.
2)дан целочисленный массив из 30 элементов.элементы массива могут принимать целые значения от 0 до 100.опишите на русском языке или на одном из языков программирования алгоритм,позволяющий найти и вывести произведение элементов массива,которые имеют четное значение и не оканчиваются на 0.
15 человек известны оценки, полученные на пяти экзаменах сессии. Сформировать
столбец начисление стипендии исходя из среднего балла:=5 стипендия
повышена на 50%, от 4 до 5 – на 25%, менее 3,5 баллов – стипендия не начисляется.
Во всех остальных случаях начисляется базовая сумма/
элементов стоящих слева и справа от минимального элемента массива.
Разделить на найденное произведение минимум и максимум. Изменённый
массив вывести.
Вот начало:
program ABC;
const Nmass=100;
var A:array[1..Nmass] of integer;
N,i,k,max,min: byte;
buf:integer;
begin
cls;
//ручной ввод массива
writeLn('Введите число элементов в массиве A');
readLn(N);
writeLn('Вводим элементы массива A:');
for i:=1 to N do
begin
write('A[',i,']=');
readLn(A[i]);
end;
//вывод массива до измененния
writeLn('Исходный массив A:');
for i:=1 to N do
write(A[i]:5);
writeLn;
А из элементов с четным номером вычесть b.