Задать вопрос
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
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Решите в паскале) Дано число. Найти квадрат числа. Если квадрат-четный, то вывести "Четное", иначе вывести квадрат числа. Повторить процесс ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы