Написать программу проверки правильности вводимого пароля 1) с использованием if ; 2) с использованием while ; 3) с использованием repeat , умоляю вас

Program ksushaa1999passwordrepeat; uses crt; var   vvod,ok: string; const   pass=' [email  protected]& $45%$! #hfthugrug'; begin   writeln('*** alphaeus is ***');   writeln('***                  ok                        ***');   writeln(); repeat       writeln('введите пароль ');       readln (vvod);   until vvod=pass; writeln('принято'); end. program ksushaa1999passwordwhile; uses crt; var   vvod,ok: string; const   pass=' [email  protected]& $45%$! #hfthugrug'; begin   writeln('*** alphaeus is ***');   writeln('***                  ok                        ***');   writeln();   while vvod< > pass do       begin           writeln('введите пароль ');           readln (vvod);       end;   writeln('принято'); end. program pksushaa1999passwordif; uses crt; var   vvod,ok: string; const   pass=' [email  protected]& $45%$! #hfthugrug'; label   metka; begin   writeln('*** alphaeus is ***');   writeln('***                  ok                        ***');   writeln(); metka:   writeln('введите пароль ');   readln (vvod);   if vvod< > pass then goto metka;   writeln('принято'); end.

А-правильный набор цифр, b-набор цифр, подлежащих проверке. если паскаль: writeln ("введите пароль"); readln; (b) if a=b writeln ("пароль правильный") else writeln ("пароль неправильный"); end

нечётко сформулировано!

объём информации о чём? если о количестве сделанных ходов, то это 15=fh, то есть достаточно 4бит(полубайта), но, подозреваю, что объём совсем не этой информации требуется найти. уточни, какой.

иначе "пойди туда, не знаю, куда; принеси то, не знаю, что". не в сказке ж живём.

 

да, ещё раз почитал, может речь идет о последовательности ходов и её объёме?

в этом случае всё просто - объём равен 15*n, где n-количество байт на один ход.

ячейку можно кодировать двумя разными способами

1. последовательно их перенумеровав. в этом случае макс. номер будет 24(если нумеровать с 0). так как     2^4   < 24< 2^5, то для такой нумерации потребуется 5 бит.

2. указавая строку,столбец, каждая из которых находится в интервале (1,5), ну или (0,4)

на что потребуется 3 бита, а на пару 6 бит.

таким образом, 1 способ экономней.

и запись 15 ходов можно поместить в 15*5=75бит= 10байт 

 

или всё же  не это имелось в виду?

1) 

var a: array [1..100] of integer;

n,i: integer;

begin

for i: =10 to 99 do begin

a[i]: =i;

if (a[i] mod n=0) then writeln(a[i]);

end;

end.

 

  2)

var a: array [1..100] of integer;

n,k,i,x,y,z: integer;

begin

readln(n,k);

for i: =n to k do begin

a[i]: =i;

x: =a[i] mod 10;

y: =a[i] div 10;

z: =y mod 10;

y: =y div 10;

if (x=y) or (x=z) or (y=z) then writeln(a[i]);

end;

end.

 

  3)

  var a,n,an,na: integer;

begin

readln(a,n);

if (a> 0) and (b> 0) then begin

an: =a*10+n;

na: =n*10+a else writeln('введены неверные числа! ');

end;

end.