решить как переделать программу на языке паскаль (ошибка - там где фиолетовым выделено), Вот сама программа
program my_first_work;
uses crt;
var a:Integer;
b:Integer;
c:Integer;
i:Integer;
q: Real;
Begin
repeat
WriteLn ( 'Введите первое число' );
read (a) ;

WriteLn (' Выберите действие +=1;-=2;=3;/=4; √=5' ) ;
read (b) ;
Begin
If b = 5 then
//Repeat
q:= ( sqrt(a) ) ;
End
//WriteLn ( 'Повторить? (1)' ) ;
//read (i) ;
//Until i = 1;
Else
Begin
WriteLn ('Введите второе число') ;
read ( c );
If b = 1 then q:= ( a + c ) ;
If b = 2 then q:= ( a - c ) ;
If b = 3 then q:= ( a c ) ;
If b = 4 then q:= ( a div c );
End
Begin
WriteLn ( q ) ;
WriteLn ( 'Повторить? (1)' ); readln (i) ;
ClrScr;
until i = '1';
readln;
end.

227

385

Ответы на вопрос:

4,7(69 оценок)

var s,x: integer; begin s: =0; repeat read(x); s: =s+x; until x=0; writeln(s);

end.

будет выведено 1

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.