Спаскалем на кану оценка за четверть . нужно написать программу которая проверяет у тебя таблицу умножения, машина должна дать 10 примеров и показать результат. причём чтоб они не повторялись. мы должны вбивать в конце одно число. это ответ в каждом примере

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.

2.False, True

Объяснение:

Логический тип - bool, хранит два значения: 1,0 (true,false)