Ошибки в программе:
Program primer - не хватает точки с запятой
Var a,b: integer;
Begin ; - не ошибка, необязательная точка с запятой
ReadLn( a,b); - не ошибка, лишний пробел после скобки, здесь и дальше не хватает пробелов между аргументами функций, знаками
s=a+b; - не хватает двоеточия в :=
m:=a*b;
d:=a:b; - переменная d не была описана; деление - это /
WriteLn(s);
WriteLn(m);
WriteLn(d)
End - не хватает точки.
Исправленная программа:
Program primer;
Var a, b: integer;
d: real;
Begin
ReadLn(a, b);
s := a + b;
m := a * b;
d := a / b;
WriteLn(s);
WriteLn(m);
WriteLn(d)
End.
а)
var x, y :integer;
begin
write ('x = ');
readln(x);
if (x<=0)
then y:=x
else if (x>=5)
then y:=4
else y:=sqr(x)*x;
write ('y = ',y);
end.
б)
var x, y, xtreugA, ytreugA, xtreugB, ytreugB, xzentrokr, yzentrokr, radokr :integer;
begin
write ('x = ');
readln(x);
write ('y = ');
readln(y);
xtreugA:= -4;
ytreugA:= 0;
xtreugB:= 0;
ytreugB:= -5;
xzentrokr:= 10;
yzentrokr:= 7;
radokr:=3;
if x-xtreugA)*(ytreugB-ytreugA)-(y-ytreugA)*(xtreugB-xtreugA))<=0) and (x<=0) and (y<=0))
then writeln('Popadanie v treugolnik')
else writeln('Ne popadanie v treugolnik');
if (sqrt(sqr(xzentrokr-x)+sqr(yzentrokr-y)) <= radokr)
then writeln('Popadanie v okruznost')
else writeln('Ne popadanie v okruznost');
end.
Если есть винда на компе (не важно каких), то с одной заходишь на диск - жмешь setup и у тебя ставится 2-я винда. Если нету винды - покупай пиратский мультизагрузочный или иди к мастеру
Объяснение: