program raf105;
const
n = 5;
var
a:array[1..n] of integer;
x, counter, i: integer;
begin
writeln('Заполните массив:');
for i:=1 to n do
readln(a[i]);
write('Введите значение элемента, который нужно удалить: ');
readln(x);
for i:=1 to n do
begin
if counter > 0
then a[i-counter]:= a[i];
if (a[i] = x) and (counter < 1)
then counter:= counter + 1;
end;
writeln('Вывод:');
for i:=1 to n-counter do
writeln(a[i]);
end.
2.program raf105;
const
n = 5;
var
a:array[1..n] of integer;
x, counter, i: integer;
begin
writeln('Заполните массив:');
for i:=1 to n do
readln(a[i]);
write('Введите значение элемента, который нужно удалить: ');
readln(x);
for i:=1 to n do
begin
if counter > 0
then a[i-counter]:= a[i];
if a[i] = x
then counter:= counter + 1;
end;
writeln('Вывод:');
for i:=1 to n-counter do
writeln(a[i]);
end.
Язык PascalABC
Нет, если есть альтернатива
Объяснение:
Т.к. в 4G модемах используются лимитные тарифы на трафик отбрасываем вариант с закачкой больших данных, игра объемом 50 гб влетит в копеечку владельцу модема. С онлайн играми дела тоже плохи, т.к. сеть мобильная могут присутствовать помехи что приведет к временным обрывам соединения, что недопустимо в онлайн играх с высоким темпом (шутеры например). Та же беда с пингом, задержка довольно высокая для комфортной игры из за мобильной сети. Если есть альтернатива через подключение к сети напрямую то лучше использовать ее.
begin
for i:=1 to 1000 do
for j:=1 to i do
if 607*i-1222*j=10
then writeln(i,' ',j,' ',i*607,' ',j*1222);
end.
Результат:
914 454 554798 554788
ответ: шагов вперёд - 914, шагов назад - 454