или как вариант пишем программу :)))
var
a, b : real;
begin
a := 6;
b := 1;
b := a/2*b;
a := 2*a+3*b;
writeln('a = ', a);
end.
и получаем
a = 21
Видимо, имеется в виду паскаль?
1 команда - ошибок нет
2. - в операторе присваивания (:=) слева от знака присваивания может быть только переменная, а здесь записано выражение a+b
3. - Так как слева от := может быть только переменная, то здесь тоже ошибка. Имена переменных не могут начинаться с цифры (6а - ошибка)
4. Здесь тоже ошибка, так как слева от := записан вызов функции (sqr(c))
5. a=8 - это не команда, а сравнение значений a и 8. Присваивание в паскале записывается :=
6. Здесь, видимо, используется математическая запись 2y (что неверно) вместо 2*y
Program evm;
var
a:integer;
begin
Writeln('Сколько вам лет? ');
readln(a);
if a<18 then writeln('Вы ребёнок');
if (a>18) and (a<35) then writeln('Вы молоды');
If (a>35) and (a<100) then writeln('Вы взрослый');
readln;
<span>end.</span>
Var a:array [1..10] of integer;
i,k:integer;
begin
k:=0;
for i:=1 to 10 do
begin
write (i,'-oe chislo: ');
readln (a[i]);
if (a[i]>-15) and (a[i]<30) then inc(k);
end;
writeln ('Kol-vo: ',k);
end.
Точность на стороне робота, а разум и творческий подход--- чертежника