Спаскалем на кану оценка за четверть . нужно написать программу которая проверяет у тебя таблицу умножения, машина должна дать 10 примеров и показать результат. причём чтоб они не повторялись. мы должны вбивать в конце одно число. это ответ в каждом примере
109
163
Ответы на вопрос:
Var a,b,i,z: integer; begin clrscr; randomize; for i: =1 to 10 do begin a: =random(9)+1; b: =random(9)+1; write(a,'*',b,' = '); readln(z); if z=a*b then writeln('верно! ') else writeln('не верно! ',a,'*',b,' = ',a*b); end; readln; end. пример (для 3 ): 6*6 = 36 верно! 8*3 = 26 не верно! 8*3 = 24 2*4 = 8 верно!
Program z1; uses crt; var z: integer; begin clrscr; writeln('1*2=? '); readln(z); if z=2 then writeln('верно! ') else writeln('не верно! 1*2=2'); writeln('2*3=? '); readln(z); if z=6 then writeln('верно! ') else writeln('не верно! 2*3=6'); writeln('3*6=? '); readln(z); if z=18 then writeln('верно! ') else writeln('не верно! 3*6=18'); writeln('4*7=? '); readln(z); if z=28 then writeln('верно! ') else writeln('не верно! 4*7=28'); writeln('5*9=? '); readln(z); if z=45 then writeln('верно! ') else writeln('не верно! 5*9=45'); writeln('6*4=? '); readln(z); if z=24 then writeln('верно! ') else writeln('не верно! 6*4=24'); writeln('7*7=? '); readln(z); if z=49 then writeln('верно! ') else writeln('не верно! 7*7=49'); writeln ('8*6=? '); readln(z); if z=48 then writeln('верно! ') else writeln('не верно! 8*6=48'); writeln('9*4=? '); readln(z); if z=36 then writeln('верно! ') else writeln('не верно! 9*4=36'); writeln('10*8=? '); readln(z); if z=80 then writeln('верно! ') else writeln('не верно! 10*8=80'); readln; end.
странные вопросы и составлены не совсем грамотно. если рассматривать все попунктно, то во всем виноват !
Популярно: Информатика
-
Надежда270906.07.2020 13:40
-
школаБийск13.06.2023 00:26
-
Andylov28.07.2020 09:41
-
tdv8431.10.2020 00:11
-
bella7777724.02.2022 14:44
-
Шеф555555555502.12.2022 14:31
-
рооллбббб21.06.2020 12:59
-
zhzdd17.08.2021 14:17
-
Relig1d19.07.2022 10:37
-
kolikova0525.06.2022 23:35