Создайте программу в PascalABC.Выводится математическое выражение (если можно рандомное) ,если в вводишь правильный ответ + 1 было Выражений должно быть 7-8
Создайте программу в PascalABC.Выводится математическое выражение (если можно рандомное) ,если в вводишь правильный ответ + 1 было
Выражений должно быть 7-8
Гость
Ответ(ы) на вопрос:
Гостьvar
n1,n2,r,k,i:integer;
begin
Randomize;
k:=0;
for i:=1 to 7 do
begin
n1:=random(90)+10;
n2:=random(90)+10;
write(n1,' + ',n2,' = ');
readln(r);
if r=n1+n2 then k:=k+1;
end;
writeln('k = ',k);
end.
Пример:
98 + 59 = 157
18 + 99 = 117
23 + 47 = 70
16 + 21 = 35
38 + 62 = 100
16 + 81 = 97
54 + 28 = 82
k = 6
Гость// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(7,1,99);
var b:=ArrRandom(7,1,99);
var c:=ArrRandom(7,1,2);
var k:=0;
var r,x:integer;
for var i:=0 to 6 do begin
Write(a[i]);
if c[i]=1 then begin Write(' + '); r:=a[i]+b[i] end
else begin Write(' - '); r:=a[i]-b[i] end;
Write(b[i],' = '); Read(x);
if x=r then k+=1
end; // for
Writeln('Верных ответов: ',k)
end.
Пример
77 - 21 = 56
53 - 97 = -44
91 + 51 = 142
42 - 65 = -23
70 + 78 = 148
91 - 5 = 86
45 + 41 = 86
Верных ответов: 7
Не нашли ответ?
Похожие вопросы