Программирование задач с ветвлением

Ввод B B>10 B:=2·BB:=B+1 да нет При 1) B=5 2) B=12 3) B=10 ?

X Y -2 2 X X 2 +Y 2 =2 2 Y=-XX=-2

Задачи: 1.Определить, является ли целое число N четным двузначным числом 2.Определить, является ли треугольник со сторонами a, b, c равнобедренным 3.Заданы размеры A, B прямоугольного отверстия и размеры X, Y, Z кирпича. Определить, пройдет ли кирпич через отверстие.

4. Определить правильность даты, введённой с клавиатуры (число – от 1 до 31, месяц – от 1 до 12). Если введены некорректные данные, то сообщить об этом. 5. Услуги телефонной сети оплачиваются по правилу: за разговоры до A мин в месяц оплачиваются B р., а разговоры сверх установленной нормы оплачиваются из расчета C р. в минуту. Написать программу, вычисляющую плату за пользование телефоном для введенного времени разговоров за месяц.

нач Ввод a, b, c D

program ugadaika; uses crt; var x, y: integer; label a1; begin clrscr; randomize; y:=random(11); a1: readln (x); if x=y then writeln ('ugadano') else begin if x

нач Печать X + Y = Z=X+Y Ввод Z Ввод X – случайное(10) Y – случайное (10) да нет