Программирование разветвляющихся алгоритмов Новая тема

виде блок-схем (проходили в 3-ей четверти)

then оператор1 else оператор 2

Пример:
if x>= 1 then x:= у

+ 5 else write (' нет решения ');

«если»

«то»

«иначе»

10 then x:= у + 5;

«если»
«то»

вводимое число, в противном случае второе число.
Program chislo;
Var a,b: real;
Begin
writeln(‘Введи

два числа');
readln(a,b);
if a<>b then writeln (a) else writeln (b);
end.

за один билет не более двух билетов одному покупателю. Программа

должна контролировать объем продаж и печатать сумму к оплате, либо предупреждающее сообщение.

Program teatr;
Var b,с: integer;
Begin
writeln('сколько Вам билетов? ');
readln(b);
С:=b * 1200;
if b>2 then writeln ('билеты Вам не продадут! ') else writeln ('С Вас ', с, ' рублей ');
end.

задание – оценка «4», 2 задание – оценка «4», если

оба выполнили – оценка «5»).
Оценка «3» - если направление верно, но есть ошибки
Переслать мне программу/ы в виде файла (скрины не пойдут)
В Интернете не ищите, я сам придумал задания….

На склад привезли бананы: в первый день 10 вагонов по X упаковок в вагонах; на второй день 6 вагонов по Y упаковок в вагонах. В какой день привезли упаковок больше?
Билет на автобус стоит 100 рублей. Он приезжает только тогда, когда сумма от продаж билетов будет 1500 рублей и больше. Составить программу, которая на основании введенного количества пассажиров, ожидающих автобус, выводила бы сообщение: «Автобус сегодня будет» или «Сегодня автобус не придет»