Программирование задач с ветвлением
При 1) B=52) B=123) B=10
Задачи:Определить, является ли целое число N четным двузначным числомОпределить, является ли треугольник со сторонами a, b, c равнобедреннымЗаданы размеры A, B прямоугольного отверстия и размеры X, Y, Z кирпича. Определить, пройдет ли кирпич через отверстие.
4. Определить правильность даты, введённой с клавиатуры (число – от 1 до 31, месяц – от 1 до 12). Если введены некорректные данные, то сообщить об этом.5. Услуги телефонной сети оплачиваются по правилу: за разговоры до A мин в месяц оплачиваются B р., а разговоры сверх установленной нормы оплачиваются из расчета C р. в минуту. Написать программу, вычисляющую плату за пользование телефоном для введенного времени разговоров за месяц.
program ugadaika;uses crt;var x, y: integer;label a1;beginclrscr;randomize;y:=random(11);a1: readln (x);if x=y then writeln ('ugadano') else begin if x<y then writeln ('malo') else writeln ('mnogo'); goto a1; end;end.