решить задание по информатике! 1. Директор фирмы, которая делает евроремонты в офисах, решил оптимизировать свое предприятие. Он заинтересовался, сколько банок краски необходимо для покраски стен офиса длиной L метров, шириной – W и высотой – H, если одной банки хватает на 16 м2, а размерами дверей и окон можно пренебречь? Значения L, W, H, каждое из которых не превышает 1000, вводятся с клавиатуры.
2.Работа светофора запрограммирована следующим образом: в начале каждого часа в течение трех минут горит зеленый сигнал, затем в течение двух минут - красный, в течение следующих трех минут - опять зеленый и т.д. Дано число t, означающее время в минутах с начала очередного часа. Определить, какого цвета сигнал горит на светофоре в этот момент.
3.Дано целое число k (1<=k<=365). Определить, каким будет k-й день года: выходным (суббота и воскресенье) или рабочим, если 1 января - понедельник.
4.Дано три целых числа, определяющих календарную дату (день, месяц и год) – день рождения человека. Определить возраст человека в годах относительно текущей календарной даты.
FOR i = 1 TO 100
percents = FIX(x * p / 100) ' здесь у нас есть переменная percents, которой присваиваются округленные функцией fix проценты (насколько я знаю, в паскале аналогичная функция называется Round)
x = x + percents 'тут всё понятно - переменной X присваивается она сама и годовые проценты по вкладу
IF x >= y THEN 'проверяем, не равен или не превысил ли наш вклад ожидаемую сумму
PRINT i 'в цикле For можно не заморачиваться с отслеживанием лет, переменная i сама подсчитает количество итераций-лет
END 'завершаем программу
END IF
NEXT i ' конец цикла
Можно ещё чисто для себя добавить в условие вывод переменной X, чтобы было нагляднее.
begin
readln(n);
if n=1 then begin writeln('1 месяц');writeln('кол-во дней');end;
if n=2 then begin writeln('2 месяц');writeln('кол-во дней');end;
if n=3 then begin writeln('3 месяц');writeln('кол-во дней');end;
if n=4 then begin writeln('4 месяц');writeln('кол-во дней');end;
if n=5 then begin writeln('5 месяц');writeln('кол-во дней');end;
if n=6 then begin writeln('6 месяц');writeln('кол-во дней');end;
if n=7 then begin writeln('7 месяц');writeln('кол-во дней');end;
if n=8 then begin writeln('8 месяц');writeln('кол-во дней');end;
И так до 12 раз...
Я не уверен что тебе нужен такой монстр...
В место к примеру 1 месяца пишешь январь...