Написать программу. Чтоб вводимое число делилось на 2 пока она не станет 0. И пусть ввыведит все деление)

Question

Марлена

11 сентября, 16:16

+4

Ответы (1)

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

Софрония · Answer 1

Pascal:

var

a:integer;

begin

write ('Введите число: ') ;

readln (a) ;

repeat

a:=a div 2;

writeln (a) ;

until a=0;

end.