Помогите написать программы для паскаля, по которой можно получить несколько младших цифр числа

Question

Александрушка

11 мая, 23:47

+3

Ответы (1)

Знаете ответ на вопрос?

Тимоша · Answer 1

Program z1;

var a, b:real;

begin

Read (a) ;

b:=random (10) ;

For i:=1 to 3 do

begin

a:=a-b;

write (a) ;

end;

end.