Question

Помогите пожалуйста со вторым и третьим заданиями.

Answer 1

Ответ:

program Test;

var

 a, b, c, x: Integer;

 r, y: Real;

begin

 WriteLn ('Введите а, b, c: ');

 ReadLn (a, b, c);

 x := a + b + c;

 x := a * b * c;

 WriteLn ('Введите r: ');

 ReadLn (r);

 r := 1;

 y := Abs (r);

 y := Sqr (r);

 y := Sqrt (r);

 y := Sin (r);

 y := Cos (r);

 y := abs (12 mod 7 - 4/2 - 350 div 15) + 2;

end.

Объяснение:

3 вопрос - тип результата вещественный, так как присутствует операция деления 4/2.