<u>// PascalABC.NET 3.3, сборка 1600 от 23.12.2017</u> <u>// Внимание! Если программа не работает, обновите версию!</u>
begin var r:integer; var x:real; while true do begin Write('Выберите тип единицы длины:',NewLine, '1-дециметр, 2-километр, 3-метр, 4-миллиметр, 5-сантиметр, 0-выход.' ); Read(r); if r=0 then begin Writeln('Пока!'); Exit end; Write('Введите длину в этой единице: '); Read(x); case r of 1:Writeln(x, ' дм = ',10*x,' см = ',100*x,' мм = ',x/10,' м = ', x/10000,' км'); 2:Writeln(x, ' км = ',1000*x,' м = ',10000*x,' дм = ',100000*x,' см = ', x*1000000,' мм');; 3:Writeln(x, ' м = ',10*x,' дм = ',100*x,' см = ',x*1000,' мм = ', x/1000,' км'); 4:Writeln(x, ' мм = ',x/10,' см = ',x/100,' дм = ',x/1000,' м = ', x/1000000,' км'); 5:Writeln(x, ' cм = ',10*x,' мм = ',x/10,' дм = ',x/100,' м = ', x/100000,' км'); end end end.
Если ты забыл ключ то 2 варианта: 1. Ты все удаляешь с него через рекавети 2.Через fastboot ставим кастомное рекавети (twrp cwm), идём по пути /data/system/ и удаляем эти файлики:gesture.key,locksettings.db,locksettings.db-wal,locksettings.db-shm
Словесные модели - это словесное описание любого предмета. К примеру, хронология исторических событий, строение клетки или же характерные черты какого-либо государства