Question

Є пронумерований список деталей: 1) шуруп, 2) гайка, 3) гвинт, 4) цвях, 5) болт. Скласти програму, яка за номером деталі виводить на екран її назву.​

Answer 1

Ответ:

program KK;

uses crt;

var k:integer;

begin

write('натисніть 1-шуруп,2-гайка,3-гвинт,4-цвях,5-болт');

readln(k);

case k of

1:writeln('Шуруп');

2:writeln('Гайка');

3:writeln('Гвинт');

4:writeln('Цвях');

5:writeln('Болт');

end;

end.