// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var a:=Random(1,9);
var b:=Random(1,9);
Writeln('Сколько будет ',a,'x',b,'?' );
var c:=ReadInteger('Введите ответ и нажмите Enter ->');
if c=a*b then Writeln('Правильно!')
else Writeln('Вы ошиблись, ',a,'x',b,'=',a*b)
end.
<u><em>Тестовые примеры:</em></u>
Сколько будет 7x4?
Введите ответ и нажмите Enter -> 28
Правильно!
Сколько будет 8x7?
Введите ответ и нажмите Enter -> 65
Вы ошиблись, 8x7=56
Решение в прикрепленном файле.
//PascalABC.Net 3.1.0.1200
var
x0, xk, dx, x: real;
function f(x: real): real;
begin
f := x * x * x + 3;
end;
begin
write('Введите промежуток и шаг ([a,b] h) ');
readln(x0, xk, dx);
x := x0;
writeln(' x ':10, ' | ', ' f(x) ':10);
repeat
writeln(x:10:3, ' | ', f(x):10:3);
x := x + dx;
until x > xk;
end.
В девятеричной что ли?
В ней есть цифры от 0 до 8.
Прибавление 1+8=10.
Тогда
1
558 +
417 =
1076
1)
_256 _100100 _ ABC
<u> 77 </u> <u> 1011 </u> <u> FF</u>
157 11001 3D
2) A B C D E F 10 11 12 13 14
(10) (11) (12) (13) (14) (15) (16) (17) (18) (19) (20)
3)
1011 254
<u> 111</u> <u> 613</u>
10010 1067<u>
</u>