Var ars:array[1..n] of string; i,j,k:integer; begin k:=n; for i:=1 to n do readln(ars[i]); for i:=1 to n do if pos('5',ars[i])<>0 then begin; for j:=i to n-1 do ars[j]:=ars[j+1]; dec(k); end; writeln('Final array:'); for i:=1 to k do writeln(ars[i]); end.
Пример ввода: 3434 5656 6767 5757 8989 Пример вывода: Final array: 3434 6767 8989
const n =30; var s:string; i,k,m:integer; a:array[1..n] of integer; b:array[1..n] of integer; begin for i:=1 to n do readln(a[i]); k:=1 ; for i:=1 to n do begin str(a[i],s); if pos('5',s) = 0 then begin b[k]:= a[i]; k:=k+1; end; end; for i:= 1 to n do a[i]:=b[i]; for i:= 1 to n do write(a[i],' '); end.
. Правда это относится скорее к автоматизации, чем к роботизации. А потом стало не до хайтека.
После войны одним из главных направлений в развитии высоких технологий стала космонавтика. Кроме того, армия нуждалась в качественно новых образцах вооружений. Поэтому в 1951 в МГТУ им. Баумана была открыта кафедра СМ-7 «Специальная робототехника и мехатроника». В стране активно развивается теория вычислительных машин и автоматизации программирования, создаётся элементная база, вводятся в эксплуатацию ЭВМ, не уступающие лучшим мировым образцам (МЭСМ, Сетунь, АВМ МН-10, СВМ 5Э89 Курс, Днепр), создаются новые коллективы учёных и инженеров для создания робототехники.
Использовать Чертежник алг Слон нач опустить перо сместиться на вектор(2, 0) сместиться на вектор(0, 2) сместиться на вектор(1, 0) сместиться на вектор(0, -2) сместиться на вектор(2, 0) сместиться на вектор(0, 2) сместиться на вектор(1, 1) сместиться на вектор(0, 2) сместиться на вектор(1, -2) сместиться на вектор(-1, 2) сместиться на вектор(-1, 1) сместиться на вектор(-3, 0) сместиться на вектор(-1, 1) сместиться на вектор(-1, 0) сместиться на вектор(-1, -2) сместиться на вектор(-1, 0) сместиться на вектор(0, 3) сместиться на вектор(-1, 0) сместиться на вектор(0, -3) сместиться на вектор(1, -1) сместиться на вектор(2, -1) сместиться на вектор(0,-3) поднять перо сместиться на вектор(1, 3) опустить перо сместиться на вектор(1, 1) сместиться на вектор(0, 2) поднять перо сместиться на вектор(-2, -1) опустить перо сместиться на вектор(-0.1, 0.1) сместиться на вектор(-0.1, -0.1) сместиться на вектор(0.1, -0.1) сместиться на вектор(0.1, 0.1) поднять перо сместиться на вектор(0, -5) кон
Const
n=5;
Var
ars:array[1..n] of string;
i,j,k:integer;
begin
k:=n;
for i:=1 to n do
readln(ars[i]);
for i:=1 to n do
if pos('5',ars[i])<>0 then
begin;
for j:=i to n-1 do
ars[j]:=ars[j+1];
dec(k);
end;
writeln('Final array:');
for i:=1 to k do
writeln(ars[i]);
end.
Пример ввода:
3434
5656
6767
5757
8989
Пример вывода:
Final array:
3434
6767
8989