Question

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

Answer 1

Var x,y,U, S:integer;
begin
readln (x,y);
S:=x+y;
if (S>100) then U:=S/2;
if (S<100) then U:=S; (зависит от условия. по-моему, в задании неправильно поставлено второе условие.)*
writeln (U);
end.



*если в условии написано
"в противном случае умножить на два, то
if (S<100) then U:=S*2;
а если оставить число неизменным, то
if (S<100) then U:=S;

Answer 2

Чтобы решить эту задачу, нам нужно ввести два числа и проверить, является ли их сумма больше 100. Если сумма больше 100, то мы уменьшаем ее в два раза, а если сумма меньше или равна 100, то также уменьшаем ее в два раза.

Давайте представим, что первое число - это a, а второе число - это b.

1. Введите первое число (a): (ввод числа a)

2. Введите второе число (b): (ввод числа b)

3. Проверяем условие: a + b > 100

4. Если условие истинно (сумма больше 100), то выполняем следующее: - Вычисляем новую сумму: сумма = (a + b) / 2

5. Если условие ложно (сумма меньше или равна 100), то выполняем следующее: - Вычисляем новую сумму: сумма = (a + b) / 2

6. Выводим новую сумму на экран: - Выводим сумму

Например, если мы введем первое число 60 и второе число 50, то сумма будет равна 110, что больше 100. Поэтому мы уменьшим сумму в два раза и получим новую сумму