ООООООООЧЕНЬЬЬ Безотлагательно!!!Напишите программку для проверки таблицы умножения. Перемножаются
ООООООООЧЕНЬЬЬ Безотлагательно!!!
Напишите программку для проверки таблицы умножения. Перемножаются числа от 2 до 9 ( числа задаются через датчик случайных чисел). Количество вопросов не наименее 10. Можно предусмотреть подсчёта количества правильных и ошибочных ответов. в паскаль!
begin
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 = 32
7*5 = 40
3*6 = 18
2*8 = 16
3*9 = 27
6*5 = 20
6*7 = 42
6*9 = 54
7*8 = 56
2*4 = 8
Правильных ответов: 8, ошибочных: 2
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.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.