задача на F1

[Руся93]

вот пример моей программы, но говорят ошибка нужно 2 цикла #0 и #59? подскажите как написать

 program g;
uses crt;
var ch:char;
s:integer;
begin 
repeat
   ch := readkey;write(ch);
   if ch = 'a' then
       inc(s);
until ch = #59;
write(s);
readkey;
end.

[Step_UA]

можно с двумя:

program g;
uses crt;
var ch:char;
s:integer;
begin 
repeat
 repeat
   ch := readkey;write(ch);
   if ch = 'a' then
       inc(s);
 until ch = #0;
until readkey=#59;
write(s);
readkey;
end.

можно и с одним:

program g;
uses crt;
var ch:char;
s:integer;
begin 
repeat
   ch := readkey;write(ch);
   if ch = 'a' then
       inc(s);
until (ch = #0) and (readkey=#59);
write(s);
readkey;
end.

[Руся93]

Step_UA Спасибо

А если это через while do то как выглядеть будет?

[Вадим Мошев]

Возможно, так

while (ch <> #0) OR (readkey <> #59);

[Руся93]

Сообщение от Вадим Мошев

Возможно, так

while (ch <> #0) OR (readkey <> #59);

А куда именно писать, я в паскале просто очень слаб

[Вадим Мошев]

Вместо этого:

repeat
   ch := readkey;write(ch);
   if ch = 'a' then
       inc(s);
until (ch = #0) and (readkey=#59);

написать

while (ch <> #0) OR (readkey <> #59) do
begin
ch := readkey;write(ch);
   if ch = 'a' then
       inc(s)
end;