25 lines
1.1 KiB
ObjectPascal
25 lines
1.1 KiB
ObjectPascal
program nunax;
|
||
var c:char;
|
||
ch : array[1..4] of char;
|
||
i,x:integer;
|
||
label l1;
|
||
begin
|
||
ch[1]:='a';
|
||
ch[2]:='b';
|
||
ch[3]:='c';
|
||
ch[4]:='d'; //записываю переменные в массив
|
||
l1: // метка для того чтобы при вводе неверного варианта что то происходило
|
||
x:=0; //всегда обнуляй переменные при использовании циклов
|
||
WriteLn('введи a,b,c или d');
|
||
ReadLn(c); //считывание варианта
|
||
for i:=1 to 4 do
|
||
begin
|
||
if (c<>ch[i]) then inc(x); // тут вариант сравнивается с a b c и d которые внесены в массив
|
||
end; // если inc(x) произошло 4 раза, значит вариант не равен ничему из того что есть в массиве
|
||
if x<>3 then
|
||
begin
|
||
Writeln('че?');
|
||
goto l1; // собственно сам переход к l1 если введен неверный вариант
|
||
end;
|
||
WriteLn('end');
|
||
end. |