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

=СЧЁТЕСЛИ(G2:G321; "<=50")

Объяснение:

Функция =СЧЁТЕСЛИ(1;2)

1 - где нужно искать (диапазон ячеек)

2 - что нужно найти (критерий отбора)

Диапазон от критерия отбора отделяется точкой с запятой (;), кавычки при использовании текстовых значений и знаков сравнения (<, > и т.д.) обязательны.

=СЧЁТЕСЛИ(G2:G321; "<=50")

Количество ячеек со значением не больше 50 в диапазоне ячеек G2:G321

Ещё можно объединять знаки сравнения со значением конкретной ячейки:

=СЧЁТЕСЛИ(A2:A5;"<>"&A4)

Количество ячеек со значением, не равным значению ячейки A4, в диапазоне ячеек A3:A5. Знак & объединяет знак сравнения "<>" (не равно) и значение в ячейке A4.

Если предположить, что значение А4=7, то формула =СЧЁТЕСЛИ(A3:A5;"<>7") , равнозначна предыдущей

ответ:

30

Объяснение:

Присваиваем переменной x значение 7:

x:=7;

Присваиваем переменной s значение 0:

s:=0;

Объявляем цикл от 1 до 3, который будет каждый раз выполнять команды введённые между begin и end:

for i:=1 to 3 do begin

Присваиваем переменной s значение текущей s + x, то есть просто прибавляем x:

   s:=s+x;

Присваиваем переменной x значение текущей x + 3, то есть просто прибавляем 3:

   x:=x+3;end;

Итак, x изначально равен 7, а s - 0. Потом идёт цикл, в котором к s прибавляется x, после чего к s прибавляется 3. Цикл небольшой, можно и пройтись для наглядности:

i = 1        s := 0 + 7 = 7              x := 7 + 3 = 10i = 2       s := 7 + 10 = 17           x := 10 + 3 = 13i = 3       s := 17 + 13 = 30         x := 13 + 3 = 16

Как мы видим, конечное значение s равно 30.