Перепишите следующую программу и подчеркните ошибки в ней допущенные. Program 2p; Var a,b,s: integer; Begin read(a); read(b) s:=(a+b)/2; writele('ответ='s); END.
var x,n,p:longint; i:integer; begin readln (x,n); p:=1; for i := 1 to N do p:=p*x; writeln(x,' в степени ',n,' равно ',p ); end.
2. Для цикла While var x,n,p:longint; i:integer; begin readln (x,n); p:=1; i:=1; while i<=n do begin p:=p*x; i:=i+1; end; writeln(x,' в степени ',n,' равно ',p ); end.
3. Для цикла Repeat
var x,n,p:longint; i:integer; begin readln (x,n); p:=1; i:=1; repeat p:=p*x; i:=i+1; until i>n; writeln(x,' в степени ',n,' равно ',p ); end.
Ошибка в 2 строчке: Var a,b,s: integer; , а должно Var a,b:integer; s:real;
Ошибка в 4 строчке: read(b) , а должно быть read(b);
Ошибка в 6 строчке: writele('ответ='s); , а должно writeln('ответ=', s);