ЗАДАНИЕ НОМЕР 4
использовать Робот
алг
нач
нц пока справа свободно
вправо
кц
вверх
вправо
вниз
нц пока слева не свободно
вниз
кц
влево
нц пока сверху не свободно
закрасить
влево
кц
кон
ЗАДАНИЕ НОМЕР 5
использовать Робот
алг
нач
нц пока справа не свободно
закрасить
вниз
кц
вниз
нц пока снизу свободно
закрасить
вниз
кц
нц пока снизу не свободно
закрасить
влево
кц
нц пока снизу свободно
влево
кц
нц пока снизу не свободно
закрасить
влево
кц
кон
Var s:integer;
begin
write('Стоимость покупки = '); readln(s);
if s>1000
then writeln('Скидка 5% (',s*0.05,' руб.), необходимо заплатить ',s*0.95)
else if s>500
then writeln('Скидка 3% (',s*0.03,' руб.), необходимо заплатить ',s*0.97)
else writeln('Скидки нет');
end.
Пример:
Стоимость покупки = 600
Скидка 3% (18 руб.), необходимо заплатить 582
тому що ми живемо в 21 столітті.Це ера нових відкриттів можливостей, але й вимог.Саме через те, що комп'ютери та техніка зараз займають дуже велике значення для людей та цивілізації, то не виключення, що через якихось декілька десятків років техніка буде невід'ємною вимогою для праці будь із чим