program xxx;
var i, k : integer;
a : array [1..10] of real;
begin
write('введите элементы массива А:');
for i:=1 to 10 do
readln(a[i]);
writeln('исходный массив А:');
for i:=1 to 10 do
write(a[i]);
k:=0;
for i:=1 to 9 do
if a[i]<>a[10] then k:=k+1;
writeln('элементов отдичных от последнего -', k);
readln
end.
4) вариант отпадает сразу,т. к. цифры расположены в порядке возрастания
1) вариант тоже отпадает, т. к. число 19 может быть получено только путём сложения 10 и 9, а это недопустимо по условию
3) вариант тоже не подходит, т. к. детям предлагают 3 числа, то есть в центре должно находится такое число из которого можно получить 2 числа, число 18 можно получить только одним способом это 9+9, но в этом случае число 8 мы никак не получим
2) вариант является верным
var
x,x1:integer;
begin
readln(x);
if (x div 10 + x mod 10 >= 10) then writeln ('Является')
else begin x1:=x; while (x1 div 10 + x1 mod 10 < 10) do x1:=x1+1; end;a
if (x div 10 + x mod 10 < 10) then writeln('Нужно увеличить на ',x1-x);
end.
50, если применять способ хранения «бит на пиксель».