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