Автор - steansupper 7 лет назад

Решите #2 на языке Паскаль,пожалуйста

Ответ

Автор - minenik

var vivod,vvod:integer;

begin

readln(vvod);

while(vvod <> 0) do

begin

vivod:=vvod;

vvod := vvod div 10;

end;

writeln(vivod);

end.

Предыдущий вопрос Следующий вопрос

Ответы и объяснения

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.

© 2026 Все права защищены Политика конфиденциальности Контакты