ПИСАТЬ ОБЯЗАТЕЛЬНО НА ЯЗЫКЕ "Python"

Задача 1

В кассе продаются проездные билеты на месяц. За с

клавиатуры стоимость проездного билета для школьника и студента, а также

количество билетов каждого вида на начало продажи и количество проездных

каждого вида на момент окончания торговли. Вывести, какую сумму за это время

заработал магазин.

Задача 2

За с клавиатуры стороны параллелограмма и высоту,

опущенную к одной из сторон. Написать программу, вычисляющую длину высоты,

опущенной к другой стороне.

Задача 3

Первое практическое занятие в университете начинается в 9-40. Все

занятия длятся 1 час 30 минут, перерыв составляет 10 минут. Далее идёт

чередование: следующая пара посвящена лекции, потом снова будет

практическое занятие и т. д.. Написать программу, которая получает с клавиатуры

номер практического занятия и выводит время его конца.

ПИСАТЬ ОБЯЗАТЕЛЬНО НА ЯЗЫКЕ "Python"

Фрагменты таблиц истинности - в прилагаемом файле.
Так как в таблицах истинности выражений А и В нет совпадающих строк, то это значит, что значения в столбцах А и В противоположны. Т.е., там где для какого-либо набора переменных выражение А имеет значение 0, выражение В будет равно 1, и наоборот, если для какого-либо набора переменных выражение А имеет значение 1, выражение В будет равно 0. Следовательно, в столбце значений таблицы истинности выражения a v b все значения будут равны 1. Количество единиц = 2^6 = 64
ответ: 64

Var  n, a, s: real; 
i: integer;
label 1, 2, 3, 4;
begin 
1: 
Writeln('1)Периметр квадрата'); 
Writeln('2)Площадь равностороннего треугольника');
Write('Ваш выбор >>> '); 
Read(n); 
Writeln(''); 
if n = 1 then  
begin   
2: 
Write('Введите площадь кварата >>> '); 
Read(s); 
if s < 0 then  
begin   
Writeln('Некорректный ввод'); 
Writeln(''); 
goto 2; 
end; 
a := Sqrt(s) * 4; 
Writeln(''); 
Writeln('Периметр квадрата >>> ', a);   
goto 4; 
end 
else 
if n = 2 then 
begin   
3: 
Write('Введите периметр равностороннего треугольника >>> '); 
Read(a); 
if a < 0 then  
begin   
Writeln('Некорректный ввод');   
Writeln(''); 
goto 3; 
end; 
s := (sqrt(3) / 4) * Sqr(a/3); 
Writeln('');   
Writeln('Площадь равностороннего треугольника >>> ', s); 
goto 4; 
end 
else 
begin   
Writeln('Некорректный ввод');   
Writeln('');   
goto 1; 
end; 
4: 
Writeln(''); 
Writeln('1)Заного'); 
Writeln('2)Выйти'); 
Write('Ваш выбор >>> '); 
Read(n); 
Writeln('');
if n = 1 then   
goto 1 ;
else   
exit;
end.