Условие - это a<16.
Операции присваивания - это не условие.
АЛГ
нач
цел Н, буф, _и, к
к := 0
вещ сред
сред := 0
ввод Н
нц для _и от 1 до Н
ввод буф
если (буф > 0) и (mod(буф, 2) = 0) то
к := к + 1
сред := сред + буф
все
кц
вывод сред / к
кон
алг
нач
цел _и
нц для _и от 5 до 8
вывод "Y(", _и / 10, ") = ", (2 * sin(_и / 10) * sin(_и / 10)) / (cos(_и / 10) * cos(_и / 10)), нс
кц
кон
Var x:integer;
begin
readln(x);
for var i:=2 to x do
if (x mod i)=0 then begin
writeln('delitel: ',i);
exit;
end;
<span>end.</span>
Таблица умножения- вид Зрительный, форма числовая. Рисунок, схема передвижения автобуса- вид зрительный, форма графическая. Гром, крик птицы, звонок телефона- вид звуковой, форма звуковая. Стихотворение в учебнике- вид зрительный, форма текстовая. Просмотр фрагмента из видео-фильма- вид зрительный, форма графическая