<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
SeqGen(ReadInteger('N='), 7, t -> t + 7).Println
end.
<h3>N= 10</h3><h3>7 14 21 28 35 42 49 56 63 70</h3>
Ответ:
На скриншотах.
Объяснение:
Как вариант можно написать программу так.
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
192 =11000000
Целую часть числа переводится из десятичной СС в другую систему счисления - последовательным делением целой части числа на основание системы счисления (для двоичной СС - на 2, для 8-ичной СС - на 8, для 16-ичной - на 16 и т.д.) до получения целого остатка, меньше, чем основание СС.