СОС СРОЧНО СЕГОДНЯ НАДО БУДЬТЕ ДОБРЫ!!!!! паскаль работа Сгенерировать случайное число из...

Question

СОС СРОЧНО СЕГОДНЯ НАДО БУДЬТЕ ДОБРЫ!!!!! паскаль работа
Сгенерировать случайное число из промежутка квадратная скобка150,200) и выделить его первую и последнию цифру!!

Answer 1

Первая цифра всегда будет = 1.
var n:integer;
begin
Randomize;
n:=random(50)+150;
writeln('n = ',n);
writeln('Первая цифра = ',n div 100);
writeln('Последняя цифра = ',n mod 10);
end.

Пример:
n = 164
Первая цифра = 1
Последняя цифра = 4