Опустить хвост
Вправо45
Вперед50
Вправо45
Вперед50
Вправо45
Вперед50
Вправо45
Вперед50
Var
k:integer;
Begin
Write('k = ');ReadLn(k);
For k:= 1 to k do
Write(k*2-1,' ')
End.
<span>program calc;</span>
<span>uses crt;</span>
<span>label metka;</span>
<span>var a,b,sum:real;</span>
<span>symbol1,symbol2,symbol3:char;</span>
<span>begin</span>
<span>clrscr;</span>
<span>writeln;</span>
<span>writeln('vvedite deystvie 4ere3 probel naprimer 4 - 2');</span>
<span>writeln;</span>
<span>writeln;</span>
<span>metka: readln(a,symbol1,symbol2,symbol3,b) ;</span>
<span>writeln;</span>
<span>case symbol2 of</span>
<span>'+':sum:=a+b;</span>
<span>'-':sum:=a-b;</span>
<span>'*':sum:=a*b;</span>
<span>'/':sum:=a/b;</span>
<span>else</span>
<span>begin</span>
<span>writeln('nekorrektno vvedeno deystvie, vvedite pravilno');</span>
<span>goto metka;</span>
<span>end;</span>
<span>end;</span>
<span>writeln('otvet:',sum:6:2,'.');</span>
<span>writeln;</span>
<span>writeln('************************** ********** ****************************');</span>
<span>readln;</span>
<span>end.</span>
Синтаксических ошибок в формуле нет. В ячейках B3 и C3 должны быть введены числовые значения. Возможно, ошибка из-за недопустимых значений в B3 и/или C3. Например, если в C3 ввести 0, то получится деление на 0.