Два разряда значит в записи числа участвуют две цифры, то есть 10, 11,12,13,20,21,22,23,30,31,32,33. В четверичной системе счисления двухразрядными будут эти числа.
Var
a: array [1..10] of real;
s: real;
i: integer;
begin
s:= 0;
for i:= 1 to 10 do
begin
writeln('Введите число');
readln(a[i]); //Вводим i-ый элемент массива с клавиатуры
if a[i] > 0 then s:= s + a[i]; {Если введенный элемент >0, то прибавляем к текущему значению s введенный элемент}
end;
writeln('Сумма положительных элементов массива: ', s)
end.
Скинь сор я скину как решать.
X - (x - 18) div 3 = 69
x - 69 = (x - 18) div 3
0 <= (x - 18) - 3(x - 69) < 3
0 <= -2x + 189 < 3
0 >= 2x - 189 > -3
189 >= 2x > 186
94.5 >= x > 93
поскольку в целых числах, то х = 94
Фраза "Не ошибается тот, кто ничего не делает, хотя это и есть его основная ошибка." состоит из 76 символов (с учетом пробелов и знаков препинания). Объем = 76*1 байт = 76 байт