Построим дерево, опираясь на данные кодов A, B, C, D, E, F. Слева единицы, справа нули.
Решение смотри во вложении.
//Pascal ABC.NET v3.0 сборка 1111
Var
a:integer;
begin
writeln('Our burgers do not prepare you for the exam, but will learn to code');
writeln('Value of burgers:');
readln(a);
case a of
1:writeln('Mineral water');
2:writeln('Coca-cola bottle');
end;
if a>=3 then writeln('One more burger');
end.<span>
Пример ввода:
10
Пример вывода:
One more burger
</span>
Файл - это <u>набор данных, имеющих имя.</u> Все файлы и папки хранятся <span><u>во внешней памяти компьютера</u>. </span>Характеристика файла - это<u> </u><span><u>имя файла и все его свойства.</u></span>
i изменяется от 12
до 7
с шагом -1
Этот текст добавлен, чтобы добрать необходимые 20 символов.