Question

Спо delphi! надо вывести 10 (a*b=c) в цикле, программа проверяет и считает . в ходе цикла надо вывести правильный ответ(если вы ввели неправильный ответ). также программа считает количество в зависимости от правильных ответов. var i,x,y,answer,input: integer; begin writeln('*test*'); randomize; answer: =10; for i: =1 to 10 do begin write(random(x),' * ',random(y),' = '); //я не знаю как задать диапазон для //переменной readln(input); if input: =x*y then //программа выдает ошибку что нужен тип //переменной boolean begin answer: =answer; end else begin write('wrong! ',x,' * ',y,' = ',x*y) answer: =answer-1; end; end; writeln('correct answers - ',answer); case answer of 10: writeln('excellent! '); 9,8: writeln('good! '); 6,7: writeln('ok! '); 0..5: writeln('bad! '); end; readln;

Answer 1

Var i,x,y,answer,input,k:Integer;

begin
Writeln('*TEST*');
randomize;
answer:=10;
k:=0;
for i:=1 to answer do
 begin
 x:=Random(9)+1;
 y:=Random(9)+1;
 Write(x,' * ',y,' = '); 
 Readln(input);
 if input=x*y then
  begin
  k:=k+1; 
  writeln('RIGHT!');
  end
 else writeln('WRONG! ',x,' * ',y,' = ',x*y);
end;

Writeln('Correct answers - ',k);
case answer of
10:Writeln('Excellent!');
9,8:Writeln('Good!');
6,7:Writeln('OK!');
0..5:Writeln('Bad!');
end;
end.

Пример:
*TEST*
2 * 4 = 8
RIGHT!
7 * 9 = 7
WRONG! 7 * 9 = 63
4 * 4 = 16
RIGHT!
1 * 2 = 2
RIGHT!
4 * 1 = 4
RIGHT!
9 * 7 = 63
RIGHT!
9 * 8 = 72
RIGHT!
3 * 1 = 3
RIGHT!
9 * 4 = 36
RIGHT!
6 * 4 = 24
RIGHT!
Correct answers - 9
Excellent!