По представленной блок-схеме составьте программу и получите результат ее выполнения

@Zynaps · Регистрация: 12.09.2021

Author24 — интернет-сервис помощи студентам

Код я, вроде, набрал. Но постоянно ошибка появляется. Где косяк?

Pascal

Program Zad6;
Label nazad;
Var
sr,s,k,a:real;
begin
s:=0;
k:=0;
a:=10;
nazad:
s:=s+a;
k:=k+1;
a:=a+5;
If a>99 then
begin
sr:=k+s/2;
Writeln('sr=',sr);
Writeln( 'k=',k);
Writeln( 'a=',a)
         else
Goto nazad;
end;
End.

@Constantin Cat · 02.11.2021, 14:52

Pascal

Program Zad6;
{Label nazad;}
Var
  sr,s,k,a:real;
begin
  s:=0;
  k:=0;
  a:=10;
{nazad:}
  repeat
    s:=s+a;
    k:=k+1;
    a:=a+5;
  until a>99;{  If a>99 then
begin         }
  sr:=k+s/2;
  Writeln('sr=',sr);
  Writeln( 'k=',k);
  Writeln( 'a=',a)
  {       else
Goto nazad;
end;}
End.

Сообщение от Zynaps

Где косяк?

тут

Pascal

1
2
3

  {       else
Goto nazad;
end;}

end должен быть перед else

	02.11.2021, 14:52

По представленной блок-схеме составьте программу и получите результат ее выполнения

Решение