дано 3 числа. Если модуль хотя бы одного из них больше 1, то найти их среднее арифметическое, иначе - их произведение
5-9 класс
|
program gt;
var a,b,c,s:real;
begin
read(a,b,c);
if(abs(a)>1)or(abs(b)>1)or(abs(c)>1) then s:=(a+b+c)/3 else s:=a*b*c;
writeln(s);
end.
Другие вопросы из категории
P.S. Программа должна определять максимальное из этих чисел.
var b,c:integer;
function back():integer;
const
a:array [1..10] of byte = (1,2,3,4,5,6,7,8,9,10);
var max,d,m:integer;
begin
max:=-100;
for m:=1 to 10 do;
begin
d:=a[m];
if d>max then max:=d;
back:=max;
end;
end;
begin
writeln(max);
end.
тоже находит число делителей числа n. Прав ли Коля?
месяцев. На компьютере одновременно обнаружены сразу все 4 вируса. Сколько гигабайтов они заполнят за 1 месяц?
Читайте также
сел - отрицательное, то найти Iа+ b+cI иначе а+b+c +d в корне.
Даны три числа. Если произведение данных чисел - отрицательное, то каждое число возвести в квадрат, иначе найти модуль каждого числа
ПОМОГИТЕ ОЧЕНЬ ПРОШУ
равносторонний,равнобедренный или какой либо другой.
Вот ещё одна
Составить программу:Даны а,b,c-целые числа.Если они большн 0-вычислите сумму их квадратов;а если хотя бы одно из них четно-вычислите их сумму и произведение.
Пожалуйста ребят.
увеличить на 0,5; если оба значения неотрицательны и ни одно из них не пренадлежит отрезку [0.5;2,0], то оба значения уменьшить в 10 раз ; в остальных случаях x и y остаются без изменения . Помогите , завтра зачет.