1. Назовите понятие, которое соответствует пересечению классов:
1.1. Правильный треугольник и равносторонний треугольник.
1.2. Отвага и трусость.
1.3. Космонавт и летчик.
1.4. Преступник и профессионал.
1.5. Электрон и элементарная частица.
1.6. Преступление против личности и преступление против жизни.
1.7. Чертеж и графическая работа.
1.8. Музыкальное произведение и поэтическое произведение.
1.9. Глагол и глагол времени.
1.10. Молодость и старость.

2.Приняв за уменьшаемый класс первое понятие каждой пары, назовите класс, который получается в результате вычитания из него второго понятия:
2.1. Квадрат и прямоугольный ромб.
2.2. Треугольник и правильный треугольник.
2.3. Симметричность и асимметричность
2.4. Холодное оружие и шпага.
2.5. Подозреваемый в совершении преступления и обвиняемый в совершении
преступления.
2.6. Существительное и слово.
2.7. Тракторист и фермер.
2.8. Бережливость и расточительность.
2.9. Речь и устная речь.
2.10. Произведения А.Блока и стихотворения.

Задача 1:

var a,b: real;

var c: char;

begin

write('Введите a: ');

readln(a);

write('Введите b: ');

readln(b);

write('Введите нужную операцию (+,-,*,/): ');

readln(c);

if (c='+') then writeln('Результат: ',a+b)

else if (c='-') then writeln('Результат: ',a-b)

else if (c='*') then writeln('Результат: ',a*b)

else if (c='/') then writeln('Результат: ',a/b);

end.

Задача 2:

var a: integer;

begin

write('Введите количество кроликов: ');

readln(a);

write('Количество морковок: ',3*100+a*2);

end.

Задача 3:

var a: integer;

begin

write('Введите число: ');

readln(a);

write('Последняя цифра числа: ',a mod 10);

end.

Задача 1:

var a,b: real;

var c: char;

begin

write('Введите a: ');

readln(a);

write('Введите b: ');

readln(b);

write('Введите нужную операцию (+,-,*,/): ');

readln(c);

if (c='+') then writeln('Результат: ',a+b)

else if (c='-') then writeln('Результат: ',a-b)

else if (c='*') then writeln('Результат: ',a*b)

else if (c='/') then writeln('Результат: ',a/b);

end.

Задача 2:

var a: integer;

begin

write('Введите количество кроликов: ');

readln(a);

write('Количество морковок: ',3*100+a*2);

end.

Задача 3:

var a: integer;

begin

write('Введите число: ');

readln(a);

write('Последняя цифра числа: ',a mod 10);

end.