Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Все лабораторные работы по паскалю / 2 лаб. Структурные операторы / Program4
.pas program prog04;
uses crt;
const parol='prog04';
var p,n: String;
begin
clrscr;
write('Введите пароль - ');
readln(p);
if p<>parol
then n:=' не';
writeln('Пароль введен',n,' верно!');
writeln('Вы',n,' допущены к работе.');
readln;
end.
uses crt;
const parol='prog04';
var p,n: String;
begin
clrscr;
write('Введите пароль - ');
readln(p);
if p<>parol
then n:=' не';
writeln('Пароль введен',n,' верно!');
writeln('Вы',n,' допущены к работе.');
readln;
end.
Соседние файлы в папке 2 лаб. Структурные операторы