Найдите сумму чисел массива, которые расположены до первого четного числа массива. Если четных чисел в массиве нет, то найти сумму всех чисел за исключением крайних.
В обратном направлении от двух населенных пунктов на расстоянии 600 км. Через 4 часа вне комбайна мотоцикл в 4 раза быстрее его встретились. а) Какая скорость комбайна? б) Какая скорость у мотоцикла? В) сколько часов проезжает комбайн между двумя населенными пунктами?. а) Направленный отрезок называется вектором. НЕТ ДА б) Задано в координатной плоскости Через точки A (2; -2), B (-1; 4), Нарисуйте вектор AB.Точка A (2; 3) на рисунке - это точка, симметричная относительно оси OX. найти: А. А (-2; 3) Б. А (2; -3) К. А (-2; -3) Д. А, (-3; 2)Күндер ұзарып, табиғат гүлдене бастайды.3. а) Бағытталған кесінді вектор деп аталады.
ЖОК
ИЯ
b) Координаталық жазықтықта берілген
А (2; -2), B(-1;4) нүктелері арқылы,
АВ векторын кескіндеңіз.Суреттегі А (2;3) нүктесі ОХ осіне қарағанда симметриялы нүктесін
табыңыз:
A. A(-2;3)
B. A(2;-3)
C. A(-2;-3)
D. А, (-3;2)Менің ең жақсы көретін жыл мезгілім – ол көктем. Бұл мезгіл маған қуаныш сезімін және ерекше көңіл-күйді сыйлайды. Күндер ұзарып, табиғат гүлдене бастайды. Аспан ашылып, күн сәулесі қарды ерітеді. Құстар қайта оралып, жерден алғашқы гүлдер шығып, жануарлар және жәндіктер қысқы ұйқыдан оянады. Адамдар өздерін бақытты сезінеді. Өйткені, көпкен күткен уақыт келді! Барлық адамдар белсенді өмір сүре бастайды. Ауада көктемнің иісі пайда болады. Менің ойымша, көктем – ең әдемі жыл мезгілі. Адамдар өздерін бақытты сезінеді. Өйткені, көпкен күткен уақыт келді! Барлық адамдар белсенді өмір сүре бастайды. Ауада көктемнің иісі пайда болады. Көктем – ең әдемі жыл мезгілі!
uses crt; var s:string; c:char; m:set of char; n,i,k,p:byte; begin writeln('Введите текст из строчных латинских букв, окончаание ввода Enter'); s:=''; repeat c:=readkey; if c in ['a'..'z'] then begin write(c); s:=s+c; end; if c=#13 then writeln until c=#13; n:=length(s); m:=[]; for c:='a' to 'z' do begin k:=0; for i:=1 to n do if s[i]=c then k:=k+1; if k>1 then m:=m+[c]; end; if m=[] then write('Нет букв, встречающихся более 1 раза') else for c:='a' to 'z' do if c in m then write(c) end.
Var a: array[1..20,1..20] of integer; n,m,i,j,min,jm,x: integer; begin randomize; write('Введите размеры массива: '); readln(n,m); writeln('Исходный массив:'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(19)-9; write(a[i,j]:4); end; writeln; end; min:=0; for i:=1 to n do min:=min+a[i,1]; writeln('Сумма элементов 1-го столбца = ',min); jm:=1; for j:=2 to m do begin x:=0; for i:=1 to n do x:=x+a[i,j]; writeln('Сумма элементов ',j,'-го столбца = ',x); if x<min then begin min:=x; jm:=j; end; end; writeln('Минимальная сумма в ',jm,'-м столбце'); writeln('Полученный массив:'); for i:=1 to n do begin for j:=1 to m do begin if j<>jm then a[i,j]:=a[i,jm]; write(a[i,j]:4); end; writeln; end; readln; end.
В обратном направлении от двух населенных пунктов на расстоянии 600 км. Через 4 часа вне комбайна мотоцикл в 4 раза быстрее его встретились. а) Какая скорость комбайна? б) Какая скорость у мотоцикла? В) сколько часов проезжает комбайн между двумя населенными пунктами?. а) Направленный отрезок называется вектором. НЕТ ДА б) Задано в координатной плоскости Через точки A (2; -2), B (-1; 4), Нарисуйте вектор AB.Точка A (2; 3) на рисунке - это точка, симметричная относительно оси OX. найти: А. А (-2; 3) Б. А (2; -3) К. А (-2; -3) Д. А, (-3; 2)Күндер ұзарып, табиғат гүлдене бастайды.3. а) Бағытталған кесінді вектор деп аталады.
ЖОК
ИЯ
b) Координаталық жазықтықта берілген
А (2; -2), B(-1;4) нүктелері арқылы,
АВ векторын кескіндеңіз.Суреттегі А (2;3) нүктесі ОХ осіне қарағанда симметриялы нүктесін
табыңыз:
A. A(-2;3)
B. A(2;-3)
C. A(-2;-3)
D. А, (-3;2)Менің ең жақсы көретін жыл мезгілім – ол көктем. Бұл мезгіл маған қуаныш сезімін және ерекше көңіл-күйді сыйлайды. Күндер ұзарып, табиғат гүлдене бастайды. Аспан ашылып, күн сәулесі қарды ерітеді. Құстар қайта оралып, жерден алғашқы гүлдер шығып, жануарлар және жәндіктер қысқы ұйқыдан оянады. Адамдар өздерін бақытты сезінеді. Өйткені, көпкен күткен уақыт келді! Барлық адамдар белсенді өмір сүре бастайды. Ауада көктемнің иісі пайда болады. Менің ойымша, көктем – ең әдемі жыл мезгілі. Адамдар өздерін бақытты сезінеді. Өйткені, көпкен күткен уақыт келді! Барлық адамдар белсенді өмір сүре бастайды. Ауада көктемнің иісі пайда болады. Көктем – ең әдемі жыл мезгілі!