Var i: integer; s,t: string; begin writeln ('введите строку'); readln(s); i: =2; while i< =length(s) do begin t: =t+s[i]; i: =i+2; end; writeln(t); end.
Спасибо
Ответ дал: Гость
самотестирование компьютера
|
первый этап - загрузка специальной программы в микросхеме bios для поиска загрузчика операционной системы
|
второй этап - программа загрузчик загружается в оперативную память для передачи работой комп.
|
программа ищет файлы операционной системы и загружает их в оперативную память в качестве программных модулей
при включении комп. ос загружается в оп раньше остальных программ
Ответ дал: Гость
с каждым днем количество ряски увеличиваеется в 2 раза. 30 июня ряска покрыла всю поверхность озера, значит 29 июня ряской была покрыта половина озера.
Популярные вопросы