• Где ошибка
    var x,y,i,s,d,n,p:integer;
    begin
    randomize;
    for i:=1 to 10 do
    begin
    x:=random(8)+2;
    y:=random(8)+2;
    p:=0;
    n:=0;
    writeln ('Сколько будет ',x,'*',y,'=');
    read (s);
    if s=x*y
    then
    p:=p+1;
    begin
    writeln (':) Правильно');
    d:=d+1;
    end;
    if s<>x*y
    then
    n:=n+1;
    begin
    writeln (':( Неправильно,',x,'*',y,'=',x*y);
    end;
    WriteLn('Количество правильных ответов: ',p);
    WriteLn('Количество неправильных ответов: ',n);
    if (d=10) or (d=9) then writeln ('Ваша оценка за тест 5');
    if (d=8) or (d=7) then writeln ('4');
    if (d=6) or (d=5) then writeln ('3');
    if (d=4) or (d=3) or (d=2) or (d=1) or (d=0) then writeln ('2');
    end;
    end.

Ответы 2

  • в 19 строке можно просто написать else, а в 18 убрать точку с запятой
    • Автор:

      isabel
    • 6 лет назад
    • 0
  • там куча ошибок, нате, разбирайтесь

    answer img
    • Автор:

      donutbjgv
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years