Question

Помогите пожалуйста​

Answer 1

№1:

Ответ: 51, -47, 17, 9.

№2:

program exec;

var a,b,c: integer;

BEGIN

 write (a=); read(a);

 write (b=); read(b);

 if a=>b then c:=0.3*(a+b) else c:=(b-a)/2;

 writeln ('c=',c);

END.

Во 1-ых: ошибка в выводе, нужно всегда ставить апострофы, вот как нужно: write ('a=') и write ('b=').

Во 2-ых: условия равно или больше не существует, только больше или равно, вот как нужно: if a>=b.

В 3-их: к "с:=(b-a)/2" не может применятся тип целого числа, нужно возвращаться в начало и поменять тип элемента с на real, вот как нужно: var a,b:integer; c:real;