Даны два вещественных числа. Если они оба четные, то возвести каждое в квадрат, в противном случае увеличить каждое на 2 - VB

Узнай цену своей работы

Формулировка задачи:

Помогите пожалуйста, через 2 часа сдавать. Даны два вещественных числа. Если они оба четные, то возвести каждое в квадрат, в противном случае увеличить каждое на 2

Решение задачи: «Даны два вещественных числа. Если они оба четные, то возвести каждое в квадрат, в противном случае увеличить каждое на 2»

textual
Листинг программы
    Dim s As Single, b As Single, q As Boolean
    s = -4: b = 3
    q = ((s / 2) = (s \ 2)) And ((b / 2) = (b \ 2))
    s = -q * s * s - CSng(Not q) * (s + 2)
    b = -q * b * b - CSng(Not q) * (b + 2)

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4.2 из 5
Похожие ответы