Ответ:
x = 5
Объяснение:
Получим уравнение:
Можно сделать проверку, что получившиеся основания систем счисления (x=5 и x+1 = 6) больше, чем каждая из цифр чисел.
Язык : PascalABC. NET
program number1;
const
L =31;
var
a : array[1..L] of shortint;
k : shortint;
begin
randomize;
for i : byte := 1 to L do
a[i] := random(-10, 10);
k :=0;
for i : byte := 10 to 20 do
k := k + a[i];
writeln(k);
end.
1- нарисуй овал и в нём напиши (начало)
2-8-нарисуй прямоугольник ,а в 3 напиши пока
9-овал в нём напиши конец
К существительному и глаголу
Var
n, i, k: integer;
f: boolean;
begin
readln(n);
f := false;
for i := 1 to n do
begin
k := Random(100);
f := f or (k mod 4 = 0);
end;
writeln(f);
end.
