Лабораторная работа № 5. Оператор выбора Вариант №10 Pascal

Задание №1. Дано решение некоторой задачи. Выполнить следующее:
1) по решению сформулировать условие задачи;
2) предложить систему тестов для проверки работоспособности программы.
10.
Var a : 1..10;
Begin
writeln('Введите число ');
readln(a);
case a of
1 : writeln ('I');
2 : writeln ('II');
3 : writeln ('III');
4 : writeln ('IV');
5 : writeln ('V');
6 : writeln ('VI');
7 : writeln ('VII');
8 : writeln ('VIII');
9 : writeln ('IX')
10 : writeln ('X');
end;
End.

Задание № 2. Дана программа, решающая некоторую задачу. В программе имеются
синтаксические ошибки и пропуски. Необходимо исправить ошибки и заполнить пропуски.
Предложить систему тестов для проверки работоспособности программы.
10. Первую цифру заданного k -значного числа (2 ≤ k ≤ 4) увеличить на 1 в случае, если это не
9. Вывести полученное число.
Begin
Var k : 2..4; n: Integer;
writeln('Введите количество цифр k:');
readln(_____);
writeln('Введите число:');
readln(_____);
case k of
2 : if n mod 10 <> 9 then writeln ('ответ:',(n div 10+1)*10+n
mod 10) else writeln ('ответ:',n);
3 : if ________ <> 9 then writeln ('ответ:',(n div 100+1)*100+(n
div 10 mod 10)*10+ n mod 10) else ________('ответ:',n);
4 : if ________ <> 9 then writeln ('ответ:', (n div
1000+1)*1000__________________) else writeln ('ответ:',n);
end;
End.

Задание № 3. Решить задачу.
10. По введенному номеру сезона (1-зима, 2-весна, 3-лето, 4-осень) вывести соответствующие сезону месяцы.

Задание № 4. Решить задачу.
10. Написать программу, которая по номеру элемента равностороннего треугольника: 1 – длина стороны, 2 – площадь, 3 – высота, 4 – периметр, запрашивает соответствующее значение этого элемента и вычисляет все остальные.