Написать текст программы ** языке Паскаль. Ввод и вывод данных в программе должны...

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.

Объяснение:

Comments

Благодарочка в карму.