Задать вопрос
7 апреля, 02:35

Задано произвольное целое число. Если они больше 50, то уменьшаете его в два раза, в противном случае возвести в квадрат.

+2
Ответы (1)
  1. 7 апреля, 02:59
    0
    Var

    n: integer;

    begin

    read (n) ;

    if n > 50 then

    writeln (n / 2)

    else

    writeln (n * n)

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Задано произвольное целое число. Если они больше 50, то уменьшаете его в два раза, в противном случае возвести в квадрат. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
С клавиатуры вводится два трехзначных числа. Возвести первое число в квадрат, а из второго извлечь корень, если хотя бы у одного из чисел, средняя цифра четная. В противном случае из первого извлечь корень, а второе возвести в квадрат.
Ответы (2)
С + + с клавиатуры вводится целое число. если введенное число отрицательное, то возвести его в квадрат, оставить число без изменений в противном случае.
Ответы (1)
Дано число. Если оно делится на 11, то уменьшить ч Дано число. Если оно делится на 11, то уменьшить число в 11 раз, в противном случае уменьшить число на 11. исло в 11 раз, в противном случае уменьшить число на 11.
Ответы (1)
Если целое число m делится на целое число n то на экран частное от деления в противном случае сообщение "m na n на целое не делится"
Ответы (1)
Число 712 возвести в двоичную систему счисления и обратно число 712 возвести в восьмеричную систему счисления и обратно число 712 возвести в шестнадцатеричную систему счисления
Ответы (1)