Вроде всё сделал, но я не понял про закрашивание. Сервис не поддерживает файлы расширения .kum, поэтому я скину команды сюда.
использовать Чертежник
алг
нач
опустить перо
сместиться на вектор (20,0)
сместиться на вектор (0,20)
сместиться на вектор (-20,0)
сместиться на вектор (0,-20)
поднять перо
сместиться на вектор (0,20)
опустить перо
сместиться на вектор (10,15)
сместиться на вектор (10,-15)
поднять перо
сместиться в точку (7,7)
опустить перо
сместиться на вектор (6,0)
сместиться на вектор (0,6)
сместиться на вектор (-6,0)
сместиться на вектор (0,-6)
поднять перо
кон
-пища для ума;
-выражена на языке.доступном для получателя.
-Сообщение может пополнить знания человека,если содержащиеся в нём сведения являются для человека понятными и новыми.
-Знания человека можно разделить на две группы: декларативные и процедурные ,или по- другому - факты и правила;
-К фактам относятся знания об определённых явлениях,событиях, свойствах объектов), и зависимостях между объектами.
-К правилам относятся знания о последовательностях действий, направленных на достижение некоторой цели.
begin
write('Стоимость покупки = ');
readln(s);
if s>5000
then writeln('Стоимость покупки со скидкой = ',s*0.8:5:2)
else writeln('Скидка не предоставляется. Стоимость = ',s:5:2);
end.
Пример:
Стоимость покупки = 6000
Стоимость покупки со скидкой = 4800.00