Задать вопрос
9 апреля, 06:51

Решите в паскале)

Дано число. Найти квадрат числа. Если квадрат-четный, то вывести "Четное", иначе вывести квадрат числа. Повторить процесс 5 раз.

+5
Ответы (1)
  1. 9 апреля, 08:43
    0
    Var

    x, y: longint;

    i: integer;

    begin

    for i : = 1 to 5 do

    begin

    Write ('Введите число: ') ;

    Readln (x) ;

    y : = sqr (x) ;

    if (y mod 2) = 0 then Writeln ('Четное')

    else Writeln ('Квадрат числа равен ', y)

    end

    end.

    Тестовое решение:

    Введите число: 1

    Квадрат числа равен 1

    Введите число: 2

    Четное

    Введите число: 3

    Квадрат числа равен 9

    Введите число: 4

    Четное

    Введите число: 5

    Квадрат числа равен 25
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Решите в паскале) Дано число. Найти квадрат числа. Если квадрат-четный, то вывести "Четное", иначе вывести квадрат числа. Повторить процесс ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Задача 1 - Дано целое число. Если оно положительное, вывести " Число положительное ", если отрицательное вывести "Число отрицательное ", если равно 0 - "Число равно нулю" задача 2 - дано целое число.
Ответы (1)
Помогите написать в паскале! Ввести три целых числа x, y, z. Если хотя бы одно из них четное, то первому четному числу присвоить значение произведения этих чисел.
Ответы (1)
Дано два числа. Если их сумма кратна 5, то прибавить 1, иначе вычесть 2. Результат вывести на экран. Дано два числа. Если их сумма кратна 5, то прибавить 1, иначе вычесть 2. Результат вывести на экран. Написать на языке Packal
Ответы (1)
Вводятся два натуральных числа. если оба числа чётные, то вывести большее из них. если оба числа не чётные, то вывести меньшее из них. если одно чётное, а другое не чётное, то вывести их произведение на экран.
Ответы (2)
Дан массив А из N целочисленных элементов. 1) Заполнить массив А целыми числами в интервале[1,100] и вывести на экран. Найти максимальный четный элемент и вывести его на экран.
Ответы (1)