Вставьте в программу program basket; uses crt; var n, i,k: integer; begin clrscr; writeln('введите количество учеников'); readln(n); writeln('введите фамилию и рост ученика'); for i: =1 to n do begin write('fam[',i,']= '); read(fam[i]); write('rost[',i,']= '); readln(rost[i]); end; k: =0;
for i: =1 to n do if rost[i]> =170 then begin k: =k+1; kom[k]: =fam[i]; end; if k=0 then writeln('кандидатов нет') else writeln('список претендентов в сборную школы'); writeln; for i: =1 to k do writeln(kom[i]); readln end. недостающие строки: fam: array[1..10] of string; rost:
array[1..10] of integer; kom: array[1..10] of string; (паскаль)

без остатка нет

25: 2=12+1 клетка в остатке

var

  a: array[1..5]of integer;

  i: integer;

begin

  for i: =1 to 5 do read(a[i]);

for i: =1 to 5 do write(a[i],' ');

writeln;

for i: =1 to 5 do if a[i]> =1024 then writeln(a[i] div 1024);

writeln;

end.

паровозы кажется могут толкать состав назад, ехать как задом так и передом и тп. иначе я не знаю.

первый поезд делится на (паровоз+10) и 11 вагонов.

и эту десятку паровоз тянет в тупичек.

второй поезд проезжает тупичек.

паровоз первого вытягивает свою десятку на свободный путь

второй паровоз толкает свой состав так чтоб стать перед тупичком

второй паровоз отцепляется и прицепляется к оставшимся 11 вагонам.

второй паровоз задом запихивает 11 вагонов в тупичек

второй паровоз берет свой состав и уезжает

первый паровоз забирает свои 11 вагонов

1)

uses graphabc; begin window.title : = 'circle'; var x,y,r,i: integer; brush.color : = clgreen; y: =20; x: =70; r: =25; for i : = 1 to 7 do circle(x,y+i*60,r); end.

2)

uses graphabc; begin window.title : = 'circle'; var x,y,r,i: integer; brush.color : = clgreen; y: =20; x: =20; r: =30; for i : = 1 to 5 do circle(x+i*70,y+i*70,r); end.

3)

uses graphabc; begin window.title : = 'circle'; var x,y,r,i: integer; brush.color : = clgreen; y: =70; x: =30; r: =60; for i : = 1 to 5 do circle(x+i*60,y,r); end.