<span>Самая большая поразрядная сумма 18, значит, те у которых она больше, выкидываем
1616 - подходит (</span>например, <span>888)
169 16'9 </span> - подходит (например, 881)<span>
163 16'3</span> - подходит, но чтобы получить 16 во втором разряде как минимум должно быть 7 (97), тогда, даже если в третьем 0, уже сумма будет больше 3. Выкидываем<span>
1916 </span>Выкидываем<span>
1619 </span>Выкидываем<span>
316 3'16 не подходит, последовательность возрастает
916 9'16 </span>не подходит, последовательность возрастает<span>
116 подходит (например, 560)
Итого, три числа</span>
Var x, y: integer;
begin
readln(y);
x := 0;
if x>0 then (двоеточие не надо)
writeln(x, y);
end.
Var
a,i:integer;
begin
write('Введите число:');
readln(a);
writeln('Единицы: ',a mod 10);
a:=a div 10;
writeln('Десятые: ',a mod 10);
writeln('Сотые: ',a div 10);
readln;
end.
1) узнаем скорость соединения
1,25Кбайт=1,25*1024байт=1280байт
1280/128=10 байт\с
2) узнаем время
250\10=25 с
Ответ 25 секунд
во-первых: задан ли двумерный массив с?
во-вторых, операторская скобка begin не нужна
в-третьих не поставлена точка с запятой после <span>c[i,j]:=a[i,j]+ a[i,j]</span>
<span>скоре всего ошибка в третьем...</span>
<span>алгоритм выполняет следующее: он берет элемент из двум. массива и в новый двумерный на это же место присваевает элементу значние, равное сумме этого элемента и его себя опять же,или,подругому, присвает ему значение, равное двум соотв. ему элементам в массиве предыдущ</span>
<span>например</span>
дан массив 2х3:
1 3 45
9 8 2344
тогда новый массив будет иметь вид:
2 6 90
18 16 4688
