Question

Написать текст программы на языке Паскаль.

Ввод и вывод данных в программе должны сопровождаться поясняющими сообщениями

(например, “Введите радиус: ” и “Длина окружности = ”).

В программе использовать стандартные функции.

Answer 1

Ответ:

Programm project1;

Var

X:integer;

Begin

Writeln ('введите число от 1 до5');

Readln(x);

Case (x)

Begin

1:writeln('деталь соответствующая списку : шуруп');

2:writeln('деталь соответствующая списку : гайка');

3:writeln('деталь соответствующая списку : винт');

4:writeln('деталь соответствующая списку : гвоздь');

5:writeln('деталь соответствующая списку : болт');

End;

End.