PascalABC.NET

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
PascalABC.NET Выведите фамилии и имена учащихся в порядке убывания их среднего балла https://www.cyberforum.ru/ pascalabc-net/ thread1823549.html Выведите фамилии и имена учащихся в порядке убывания их среднего балла. Входные данные Заданы сначала количество учащихся n, затем n строк, каждая из которых содержит фамилию, имя и три числа...	Определите трех учащихся с наилучшим средним баллом по трем предметам PascalABC.NET Определите трех учащихся с наилучшим средним баллом по трем предметам. Выведите фамилии и имена этих учащихся. Если при этом у нескольких учащихся средний балл совпадает со средним баллом учащегося,...
PascalABC.NET Определите средний балл всех учащихся по каждому предмету Определите средний балл всех учащихся по каждому предмету. Входные данные Заданы сначала количество учащихся n, затем n строк, каждая из которых содержит фамилию, имя и три числа (оценки по трем...	PascalABC.NET Найти произведение номера наибольшего положительного и наименьшего отрицательного элементов массива Задание : Найти произведение номера наибольшего положительного и наименьшего отрицательного элементов массива С(15) Текст программы: program lab8; const n = 15; var С: array of... https://www.cyberforum.ru/ pascalabc-net/ thread1823413.html
PascalABC.NET Вывести числа из промежутка [A,B] кратные количеству этих чисел https://www.cyberforum.ru/ pascalabc-net/ thread1823328.html Вывести числа из промежутка кратные количеству этих чисел. (Прощу помощи, решать нужно через цикл.):wall:	Поправить программу с массивами, чтобы она соответствовала заданному условию PascalABC.NET как изменить программу, чтобы не было вот этой строчки write('Количество элементов: '); readln(n);, надо чтобы автоматически массив выходил const nmax=50; var a:array of integer; b:array ...
PascalABC.NET Положительные элементы сделать отрицательными, а отрицательные положительными и перевернуть массив Написать программу, которая заполняет массив случайными элементами из промежуткам , где А-отрицательное B-положительное. Вывести массив. Инверсировать массив по принципу: положительные сделать...	PascalABC.NET Координатный метод нахождения угла Доброго времени суток. На плоскости даны координаты точек 1(x1,y1) и 2(x2,y2). Из точки 1 проведена прямая, параллельная оси x(ни одна из точек на самих осях не лежит, сами точки могут иметь как... https://www.cyberforum.ru/ pascalabc-net/ thread1823158.html
PascalABC.NET Найти среднее арифметическое чисел, принадлежащих промежутку https://www.cyberforum.ru/ pascalabc-net/ thread1823089.html Найти среднее арифметическое чисел, принадлежащих промежутку [А, В) и количество положительных чисел, стоящих на местах, кратных 4.	PascalABC.NET Вычислить сумму положительных чисел стоящих на местах кратных 3 вычислить сумму положительных чисел стоящих на местах кратных 3 и подсчитать колличество чисел равных задонному т https://www.cyberforum.ru/ pascalabc-net/ thread1823087.html

Joy

2357 / 1277 / 1483

Регистрация: 29.08.2014

Сообщений: 4,600

11.10.2016, 05:02

Ввести пользователя "гость" или "админ" по его паролю

11.10.2016, 05:02. Просмотров 1050. Ответов 1

Метки (Все метки)

Сообщение было отмечено Gander как решение

Решение

Pascal

uses crt;
var
 l,p:string;
   c:char;
begin
  repeat
    clrscr;
    write('login:');readln(l);
    l:=uppercase(l);
    write('password:');
    p:='';
    repeat
      c:=readkey;
      if c<>#13 then begin write('*');p:=p+c;end;
    until c=#13;
    writeln;
  until ((l='ADMIN') and (p='k12')) or ((l='GUEST') and (p='12k'));
  writeln('Hello '+l);
end.

Вернуться к обсуждению:
Ввести пользователя "гость" или "админ" по его паролю

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

11.10.2016, 05:02

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Удалить из последовательности символов S все слова, оканчивающиеся группой букв, "кая" или "кое"
Даны натуральное число n, символы S1,... Sn. Будем рассматривать слова, образованные символами, ...

Ввести слово, вывести "ДА" если первый и последний символ совпадает, в противном случае вывести "НЕТ"
Ввести слово, вывести "ДА" если первый и последний символ совпадает, в противном случае вывести...

Составьте программу замены в слове Х всех букв "а" и "я" на слог "по"
Составьте программу замены в слове Х всех букв "а" и "я" на слог "по". заранее спасибо!

Как скрыть в graphABC кнопки "свернуть", "Развернуть", "Закрыть"
Как скрыть в graphABC кнопки "свернуть", "Развернуть", "Закрыть"

Подсчитать количество слов, которые заканчиваются буквами "е" или "Е"
Дано некоторый текст. Группы символов, разделенных пробелами (одним или несколькими) и не содержите...

Выяснить, каких букв ("а" или "б") в слове Х больше
составьте программу, выясняющую, каких букв (а или б) в слове Х больше Помогите, пожалуйста.

Наверх