3 года назад

дано 3 числа. Если модуль хотя бы одного из них больше 1, то найти их среднее арифметическое, иначе - их произведение

1 ответ:

0 0

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.

Читайте также

|/| <|{ |/| > |•| [] |* >\ Как переводится ?

vreint

Это никак не переводится

0 0

4 года назад

Помогите, плиз, задачей) Полность, пжл, решение напишите) В княжестве есть только черные, белые и серые автомобили. Белых автомо

Ашэс

Пусть Х - количество черных автомобилей
У - количество серых
Рч = x/(x+y+18)
$\frac{x+y+18}{x} = 2^{7}$
$\frac{x+y+18}{x}$ = 128
x+y+18 = 128x (1)
P(не серый) = (х+18)/(x+y+18)
$\frac{x+y+18}{x} = 2^{5}$
$\frac{x+y+18}{x}$ = 32
x+y+18 = 32x+576 (2)
из того что, левые части выражений (1) и (2) равны, следует что равны и правые части, получим
128х=32х+576
96х = 576
х=6
Ответ: 6 черных автомобилей

0 0

4 года назад

Определите значение переменной спосле выполнения следующего фрагмента программы: a:= 30; b:= 6; a:= a * 3 / b; if a > b then

Елена1979СВ

A:= 30;
a:=30;
b:= 6;
a:=30*3/6 после этого a примет значение a:=15, подставляем в условие
if 15>6 then (если условие выполняется), а оно выполняется, то решаем первое уравнение
c:= 2*15-5* (6+2) получаем
c:=-10
если писать на паскале, то будет так
var a,b,c:real;
begina:= 30;b:= 6;
a:= a * 3 / b;if a > b then
c:= 2*a - 5*(b+2)else
c:= 2*a + 5*(b+2);
writeln (c);
end.

0 0

4 года назад

ЛЮДИ ДОБРЫЕ, ПОМОГИТЕ ПОЖАЛУЙСТА. 2 ПРОСТЫХ ВОПРОСА! 4 И 7(5 правильно ли)

BorOlga [25]

Ответ:

Првильно молодец супер

0 0

4 года назад

Решите задачу:Для кодирования одного пикселя используется 4 байта фотографию размером 1024*2048 пикселей сохранили в виде несжат

сергей7808

1. Умножаем 1024 на 2048, чтобы получить количество пикселей:

1024 * 2 048 = 2 097 152 пикс.

2. 1 пикс = 4 байт, значит:

2 097 152 * 4 = 8 388 608 байт

3. Переводим байты в мегабайты:

8 388 608 байт = 8 мбайт

Ответ: 8 мбайт.

0 0

4 года назад