ПОМОГИТЕ ПОЖАЛУЙСТА написать программу проверки правильности вводимого пароля 1) с использованием if ; 2) с использованием while ; 3) с использованием repeat ...until ПОЖАЛУЙСТА , УМОЛЯЮ ВАС ПОМОГИТЕ

2

Ответы и объяснения

2014-03-05T13:59:18+00:00
А-правильный набор цифр, b-набор цифр, подлежащих проверке.
Если Паскаль: writeln ("введите пароль"); readln;(b) if a=b writeln ("пароль правильный") else writeln ("пароль неправильный"); end
2014-03-05T15:47:11+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

Program Ksushaa1999PasswordRepeat;
uses crt;
var
  vvod,ok:string;
const
  pass='Ghrj@&$45%$!#hftHUgruG';
begin
  writeln('*** Alphaeus is thinking... ***');
  writeln('***          OK             ***');
  writeln();
repeat
    writeln('Введите пароль ');
    readln (vvod);
  until vvod=pass;
writeln('Принято');
end.

Program Ksushaa1999PasswordWhile;
uses crt;
var
  vvod,ok:string;
const
  pass='Ghrj@&$45%$!#hftHUgruG';
begin
  writeln('*** Alphaeus is thinking... ***');
  writeln('***          OK             ***');
  writeln();
  while vvod<>pass do
    begin
      writeln('Введите пароль ');
      readln (vvod);
    end;
  writeln('Принято');
end.

Program PKsushaa1999PasswordIf;
uses crt;
var
  vvod,ok:string;
const
  pass='Ghrj@&$45%$!#hftHUgruG';
label
  metka;
begin
  writeln('*** Alphaeus is thinking... ***');
  writeln('***          OK             ***');
  writeln();
metka:  writeln('Введите пароль ');
  readln (vvod);
  if vvod<>pass then goto metka;
  writeln('Принято');
end.