Написать программу в паскале: Имеется кусок ткани длинной M метров. От него последовательно отрезаются куски равной длины. Все данные по использованию
5-9 класс
|
ткани заносятся в компьютер. Компьютер должен выдать сообщение о том, что материала не хватает, если будет затребован кусок ткани больше длины, чем имеется.
PROGRAM LGJ;
var
m,n:real;
begin
writeln('введите длинну ткани');
readln(m);
writeln('введите отрезаюмую длинну');
readln(n);
if m<n then
writeln('материала не хватает!');
end.
Другие вопросы из категории
Продумайте структуру таблицы для решения следующей задачи:В пещере у реки поселился огнедышащий дракон по имени Сергей Михайлович. Всех, кто пытался его прогнать, он прогонял сам, полыхая огнем. Количество полыханий зависело от того, на кого надо полыхать. На царевича дракон полыхал 5 раз, на королевича — 4 раза, на простого рыцаря — 3. За первые сто лет дракона пытались прогнать 2 царевича, 3 королевича и 5 простых рыцарей. За второе столетие на него покушались 3 царевича, 2 королевича и7 простых рыцарей. За третий век дракона беспокоили 7 царевичей, 5 королевичей и 6 простых рыцарей. За следующее столетие Сергею Михайловичу пришлось иметь дело с 3 царевичами, 6 королевичами и 10 простыми рыцарями. После чего дракона, в конце концов, оставили в покое и объявили гору, на которой он жил, заповедником для охраны редких видов животных.Сколько человек пытались прогнать дракона за каждое из столетий в отдельности и за все 4 века вместе? Сколько среди них было царевичей, сколько королевичей и сколько простых рыцарей? Сколько раз дракону пришлось полыхать на них огнем в течение каждого века и за все 4 столетия вместе? Сколько полыханий досталось царевичам, сколько — королевичам и сколько — простым рыцарям?
и написать программу на вычисление площади или периметра прямоугольника
, при условии, если а < b ,
тогда вычисляем периметр , иначе площадь . Каждую строку программы прокомментировать .
Входные данные а=10 , b=8
помогите решить 9 класс
Читайте также
щение о том что материала не хватает, если будет затребован кусок ткани, большей длины чем имеется.
НА ПАСКАЛЕ, ПОДАЛУЙСТА
паскаль 3)найти произведение последовательных натуральных чисел от n до m. написать программу паскаль. 4)найти сумму последовательных натуральных чисел от 10 до 15.тоже паскаль
2)Написать программу которая бы выводила на экран произведение нечетных чисел от 10 до 20.
1. Написать программу нахождения произведения n чисел.
расположденных по диагонали
3.Написать программу рисующую горизонтальную цепочку из 12 кругов,каждый круг должен на половину закрывать предыдущий
Помогите,а то сижу с паскалем уже час с лишним и все никак не получается..
Заранее спасибо)