Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Pascal:

var
a:integer;
begin
write(Введите число: );
readln(a);
repeat
a:=a div 2;
writeln(a);
until a=0;
end.