tobolenecivanov1675
?>

НУЖНА В числовом массиве найти сумму чисел, которые имеют одинаковые знаки и расположены на одинаковом расстоянии, от начала и до конца массива (сумма пар чисел.)

Информатика

Ответы

de1979nis

Как и в математике. Сначала выполняем операции в скобках, потом вне.

a=10 b=20

a) rez:= (a=10) or (b>10) = TRUE or TRUE = TRUE

б) rez:= (a>5) and (b>5) = TRUE and TRUE = TRUE

в) rez:= (not (a<15)) or (b>20) = (not TRUE) or FALSE = FALSE or FALSE = FALSE

Программа, так полагаю, на паскале. Вот примерный код

var

a, b :integer;

rez : boolean;

begin

a:=10;

b:=20;

rez:=(a=10) or (b>10);

writeln(rez);

end.

Вместо строчки rez:=(a=10) or (b>10); подставляешь то, что тебе нужно, и будет счастье.

Герасименко

var

kurs, summa, rub: double;

begin

readln(kurs, summa);

rub := kurs * summa;

writeln(trunc(rub), ' РУБ ', (frac(rub) * 100):2:0, ' КОП');

end.

Объяснение:

Получаем два числа, затем перемножаем курс на сумму в долларах, чтобы получить рубли и затем выводим в нужном формате.  

trunc(a) получает целую часть от числа  

frac(a) получает дробную часть от числа, затем умножаем на 100 для преобразования дробной части в целую(для вывода на экран) (например число 0.22 преобразуется в 22.0) и с :2:0 выводим в формате 2 цифры до запятой и 0 после.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

НУЖНА В числовом массиве найти сумму чисел, которые имеют одинаковые знаки и расположены на одинаковом расстоянии, от начала и до конца массива (сумма пар чисел.)
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

djevgen
Pastel-sova
xcho1020
Petrushin482
vardartem876
Narine natalya
katar050419735
Lebedeva1577
КириллЕгорова1906
mvolkov8
Анатолий
timonina29
bhg50
Alekseevich1012
Тресков946