У меня ещё один вопрос появился. Поидее последний. У моей программы теперь последующий вопрос должен зависить от предыдущего. Я пробовал так:
читать дальше »
Код:
Uses Crt;
Var a, b, y, z: Integer;
begin
TextBackGround(1); ClrScr;
a:=0; b:=0; y:=0; z:=0;
ClrScr;
Writeln ('?');
Writeln ('');
Writeln ('1');
Writeln ('2');
Writeln (''); Readln (y);
case y of
1:inc(a, 10);
2:inc(a, 20);
If a=10 Then
begin
ClrScr;
Writeln ('?');
Writeln ('');
Writeln ('1');
Writeln ('2');
Writeln (''); Readln (y);
end;
case y of
1:inc(b, 1);
2:inc(b, 2);
If a=20 Then
begin
ClrScr;
Writeln ('?');
Writeln ('');
Writeln ('1');
Writeln ('2');
Writeln (''); Readln (y);
case y of
1:inc(b, 1);
2:inc(b, 2);
z:=a+b;
ClrScr;
Writeln('= ',z);
Readln;
end.
Он жалуется на "If a=10 Then". Как это прописать иначе, что-бы всё было нормально?
