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

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

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

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

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

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

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

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

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