1 Выделите строки программы, которые приведут к сообщению об ошибке.

Program test2;

Var x1, x2: real; a1, a2: integer; s1, s2:string;

Begin

[ a1:=abs (5); ]

[ x1:=sqr (-16); ]

[ a2:=sqrt (16); ]

[ x2:=sqrt (5); ]

[ s1:=16+5; ]

[ s2:=’16’+’5’; ]

End
2 Выделите значения для переменных так, чтобы в программе отсутствовали ошибки, определяемые компилятором.

Program test3;

Var p : string; q : real; t: integer; d: char; k: boolean;

Begin

p:= [‘128’ / 128 / 12.8 / true];

q:= [12.8 / ‘128’ / true];

t:= [128 / ‘128’ / 12.8 / true];

d:= [‘p’ / 128 / 12.8 / q];

k:= [false / 128 / 12.8 / ‘12.8’];

End.

Boss21888    2   12.04.2020 21:45    22