Циклы

[enji4ka]

Дана программа:
...

begin
clrscr;
repeat
write('Vvedite naturaljnoe chislo');
readln(x);
val(x,n,kd);
until (kd=0) and (n>0);

...
ВопроС: Где нужно добавить цикл и с каким условием, чтобы Х можно было ввести 3 раза, если на 4ый раз неправильно, то программа выключается....Помогите пожалуйста с написанием!Очень надо на завтра(((

Helllppppp!!!

[Sam Gold]

чтобы Х можно было ввести 3 раза, если на 4ый раз неправильно, то программа выключается....

Как-то непонятно задание сформулировано. Надо ввести х только три раза или любое число раз? А если на 4 раз правильно ввести, то что будет?

[psycho-coder]

Может так?

var
  i: Integer;
begin
  clrscr;
  for i := 1 to 4 do
  begin
    write('Vvedite naturaljnoe chislo');
    readln(x);
    val(x,n,kd);
    if (kd = 0) then break;
  end;
  if (kd <> 0) then Exit;
...

Как-то непонятно задание сформулировано. Надо ввести х только три раза или любое число раз? А если на 4 раз правильно ввести, то что будет?

Судя по всему, должна работать дальше

[enji4ka]

Дааа!!Всё работает!Большое спасибо и удачи!!!