СРОЧНО! Пожалуйстаинформатика 10 класснадо изменить программу, чтобы она не true или...

Question

СРОЧНО! Пожалуйстаинформатика 10 класснадо изменить программу, чтобы она не true или false принимала, а число 1 или 2. Если число 1 то по русски, если 2 то по английски

---

Answer 1

procedure Pause(i:integer);

begin

if i=1

 then writeln('нажать enter')

 else writeln('press enter');

readln;

end;

begin

Pause(1);

Pause(2);

end.

Результат:

нажать enter

press enter

Answer 2

true на 2 меняете, false на 1, после i пишите =2, boolean меняете на integer или аналогичный тип данных, после второй процедуры pause в основной программе ;