решить как переделать программу на языке паскаль (ошибка - там где фиолетовым выделено), Вот сама программа
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.​

darinarad4enko1    2   18.03.2021 22:34    0