Изобразите файловую структуру в виде дерева. 1)C:\Рисунки\Времена года\ Снеговик.bmp, 2)C:\Рисунки\Времена года \ Открытка.bmp,
3)C:\Мои документы\7 класс \ Литература \ Сочинение.doc

213

362

Посмотреть ответы 1

Ответы на вопрос:

MishaBig

Информатика

4,7(95 оценок)

Procedure getrv(var r, v: real; var final: boolean); { организует ввод и возвращает значения роста и веса. значение параметра final=true - сигнал окончить ввод данных, для чего вводят нули } begin write('введите рост (см) и вес (кг) -> '); readln(r, v); final : = ((r > 0) and (v > 0)) end; function defdesk(r: real): string; begin if r < = 140 then defdesk : = 's' else if r < 150 then defdesk : = 'm' else defdesk : = 'l' end; var rost, ves: real; flag: boolean; begin repeat getrv(rost, ves, flag); if flag then writeln('нужна парта типа ', defdesk(rost)) until (not flag) end. тестовое решение: введите рост (см) и вес (кг) -> 135 31 нужна парта типа s введите рост (см) и вес (кг) -> 143 41 нужна парта типа m введите рост (см) и вес (кг) -> 151 48 нужна парта типа l введите рост (см) и вес (кг) -> 0 0