Question

Напишите код на Паскаль.
Необходимо вычислить:

- модуль x;

- целую часть вещественного числа x;

- получить случайное число в диапазоне от 0 до р, р – целое.
​​

Answer 1

Ответ:

1)

var x:integer;

begin

 write('Введите x: ');

 read(x);

 if x < 0 then write(-x)

 else write(x)

end.

2)

var x:real;

begin

 write('Введите x: ');

 read(x);

 write(Int(x))

end.

(Вещественные числа в паскале записываются с использованием точки, а не запятой)

3)

var p:integer;

begin

 write('Введите p: ');

 read(p);

 p := random(p);

 write(p);

end.