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