Даны два вещественных числа. Если они оба четные, то возвести каждое в квадрат, в противном случае увеличить каждое на 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)