• ООООООООЧЕНЬЬЬ Срочно!!!
    Напишите программу для проверки таблицы умножения. Перемножаются числа от 2 до 9 ( числа задаются через датчик случайных чисел). Количество вопросов не менее 10. Можно предусмотреть подсчёта количества правильных и неправильных ответов. в паскаль!

Ответы 5

  • PascalABC.NET есть где нибудь онлайн?
    • Автор:

      kayarusso
    • 6 лет назад
    • 0
  • Насколько я знаю, нет.
    • Автор:

      dwayne
    • 6 лет назад
    • 0
  • спасибо
    • Автор:

      bram3tkc
    • 6 лет назад
    • 0
  • //PascalABC.NETbegin  var a,b,c:integer;  var k:=0;  for var i:=1 to 10 do   begin   a:=random(2,9);   b:=random(2,9);   write(a,'*',b,' = ');   readln(c);   if a*b=c then k:=k+1;   end;  writeln('Правильных ответов: ',k,', неправильных: ',10-k);end.Пример:8*4 = 327*5 = 403*6 = 182*8 = 163*9 = 276*5 = 206*7 = 426*9 = 547*8 = 562*4 = 8Правильных ответов: 8, неправильных: 2
    • Автор:

      ralphppcy
    • 6 лет назад
    • 0
  • program HelloWorld;

    var i,res,ok: integer;

    var a,b: integer;

    begin

        ok:=0;

        for i:=1 to 2 do

        begin

            a:=2+random(7);

            b:=2+random(7);

            write('Сколько будет ');write(a);write(' умножить на ');write(b);writeln(' ?');

            readln(res);

            if res = a*b then ok:=ok+1;

        end;

        write('Правильных ответов:  ');writeln(ok);

       

    end.

  • Добавить свой ответ

Войти через Google

или

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

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

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