Добавил:
3axap4uk_
Рыльский филиал МГТУ ГА.
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Практические / prakt6 / family
.pas Program family;
var hus, wife, son, daut: string;
var name: integer;
label 10;
begin
10:writeln('Чьё имя, Вы хотите узнать?');writeln('1-Муж');
writeln('2-Жена');
writeln('3-Сын');
writeln('4-Дочь');
readln(name);
case name of
1:writeln('Имя мужа: Олег');
2:writeln('Имя жены: Александра');
3:writeln('Имя Сына: Тимофей');
4:writeln('Имя дочери: Екатерина');
end;
goto 10;
end.
var hus, wife, son, daut: string;
var name: integer;
label 10;
begin
10:writeln('Чьё имя, Вы хотите узнать?');writeln('1-Муж');
writeln('2-Жена');
writeln('3-Сын');
writeln('4-Дочь');
readln(name);
case name of
1:writeln('Имя мужа: Олег');
2:writeln('Имя жены: Александра');
3:writeln('Имя Сына: Тимофей');
4:writeln('Имя дочери: Екатерина');
end;
goto 10;
end.
Соседние файлы в папке prakt6