Составить программы в QBasik что бы найти кратное 5
вычислить сумму квадратов всех целых чисел от 1 до n
даны два числа, меньшее из них замените квадратом, а большее умножте на 10.

Предыдущий
вопрос Следующий
вопрос

1) Программа для нахождения кратного 5:

INPUT "Введите число: ",
IF n MOD 5 = 0 THE
PRINT n;" кратно 5
ELS
PRINT n;" не кратно 5
END IF

2) Программа для вычисления суммы квадратов всех целых чисел от 1 до n:

INPUT "Введите число n: ",
sum =
FOR i = 1 TO
sum = sum + i^
NEXT
PRINT "Сумма квадратов всех целых чисел от 1 до ";n;" равна ", sum

3) Программа для замены чисел:

INPUT "Введите первое число: ", num
INPUT "Введите второе число: ", num
IF num1 < num2 THE
low = num1^
high = num2 * 1
PRINT "Меньшее число заменено на ", lo
PRINT "Большее число умножено на 10 и теперь равно ", hig
ELS
low = num2^
high = num1 * 1
PRINT "Меньшее число заменено на ", lo
PRINT "Большее число умножено на 10 и теперь равно ", hig
END IF

Надеюсь, это поможет! Если у вас есть другие запросы или нужны дополнительные объяснения, не стесняйтесь спрашивать.