Question

Написать текст программы на языке Паскаль.
Ввод и вывод данных в программе должны сопровождаться поясняющими сообщениями
(например, “Введите радиус: ” и “Длина окружности = ”).
В программе использовать стандартные функции.
Помогите, пожалуйста!

Answer 1

Ответ:

uses crt;

var detal:integer;

begin

writeln('Введите номер детали в списке');

read(detal);

case detal of

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

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

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

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

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

else writeln('детали под таким номером нет в списке');

end

end.

Объяснение: