1. Информатика
  2. Дано 2 числа.если их

Дано 2 числа.если их сумма больше 100,то сумму уменьшить в 2 раза.в противном случае увеличить в 2 раза

натали23011980 натали23011980    1   27.08.2019 03:00    11

Ответы
Рюзаки1 Рюзаки1  05.10.2020 22:12
Program n1;
var a,b,sum: real;
begin
readln(a,b);
sum:=a+b;
if sum>100 then sum:=sum/2 else sum:=sum*2;
write(sum);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Nazerke0606 Nazerke0606  03.07.2019 08:10
Ну, , , кто в паскале хорошо разбирается! дан целочисленный массив из 40 элементов. элементы массива могут принимать целые значения от –100 до 100 включительно. опишите на естественном...
путникспутник путникспутник  03.07.2019 08:10
Сколько килобайт составит сообщение из 384 символов 16 символьного алфавита...
danya8202 danya8202  06.01.2022 20:10
. Для выделения несмежных листов рабочей книги Excel, используются клавиши: а) Altб) Shiftв) Ctrlг) Alt+Shiftд) Ctrl+Shift2. Для выделения смежных листов рабочей книги Excel, используются...
Milintin25 Milintin25  26.05.2020 19:23
Паскаль. Написать программу, в которой выполняются следующие действия: с клавиатуры вводится первое число; с клавиатуры вводится второе число; вводится слово, обозначающее операцию...
lizarodionov6Liza lizarodionov6Liza  26.05.2020 19:24
Скласти програму Паскаль: знайти кількість від ємних елементів масиву розмірністю 3х5​...
amamam009 amamam009  25.11.2021 08:22
N школьников делят K яблок по ровну, неделящийся остаток оставляют в корзине. Сколько яблок останется в корзине? ПАСКАЛЬ...
  25.11.2021 08:22
Найдите результат выражения...
Петунья248 Петунья248  25.11.2021 08:23
Ознакомься с программой.     Определи, какой массив будет выведен прогаммой последней строкой? Входные данные:2325271529342964658523 25 27 15 29 34 29 64 65 858Тут нужно в правильной...
гарристайлсс гарристайлсс  10.04.2020 01:42
1.Дайте определение функций и назначения табличного процессора Ms Excel. 2.Какое расширение (тип) имеют файлы, созданные в MS Excel 2010- 2013. 3.Какое максимальное количество...
alenashafeeva alenashafeeva  17.04.2019 05:00
Оксид хлора (VII) проявляет все типичные свойства кислотных оксидов (подтвердите уравнениями соответствующих реакций в молекулярной, полной и сокращённой ионной формах, где это...

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