1) 6 команд (1+2, 3+2, 5+2, 7х3, 21+2, 23+2 = 25)
2) Г
<em><u>qBASIC:</u></em>
INPUT "x="; x
INPUT "y="; y
Sa = (x + y) / 2
Sb = SQR(x * y)
PRINT "Sa="; Sa, "Sb="; Sb
END
<em><u>Тестовое решение:</u></em>
x=? 3.6
y=? 2.8
Sa= 3.2 Sb= 3.174901
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(('Я изучаю циклы'+NewLine)*15)
end.
<u>Результат</u>
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
я не помню паскаль:(
Объяснение:
вводишь число a
через if проверяешь условие
if(a>7) то a:=a*10
else if (a<7) то а:=а+7
Графическая информационная модель
мне так кажется
удачи