Математика: ложное4+3=5, истинное 4+4=8 Биология: ложное животные это неживая природа,истинное биология это система наук, объектами изучения которой являются живые существа их взаимодействие с окружающей средой Информатика: ложное информатика - наука о термической обработке металлов, истинное информатика-наука о методах и процессах сбора, хранения, обработки, анализа и оценки информации История-ложное: первая мировая война началась 7 августа 1920,истинное первая мировая война началась 28 июля 1914 География-ложное Эльбрус — высочайшая горная вершина Европы, истинное Эльбрус – не высочайшая горная вершина Европы Литература-ложное:С.Есенин-драматург,истинное А.Пушкин-поэт-драматург
uses crt; const nmax=100; var x:array[1..nmax] of integer; n,m,i,j,k,a,p:integer; begin clrscr; randomize; repeat write('Размер массива от 2 до ',nmax,' n='); readln(n); until n in [2..nmax]; writeln('Исходный массив:'); for i:=1 to n do begin x[i]:=random(10); write(x[i]:4); end; writeln; i:=1; m:=n; while i<n-1 do begin k:=1; a:=x[i]; for j:=n downto i+1 do if x[j]=a then k:=k+1; if k>2 then begin j:=i; while j<=n do if x[j]=a then begin if j=n then n:=n-1 else begin for p:=j to n-1 do x[p]:=x[p+1]; n:=n-1; end; end else j:=j+1; end else i:=i+1; end; if n=0 then begin
exit end; if n=m then write('Все элементы встречены не более 2 раз и не удалены') else begin for i:=1 to n do write(x[i]:4); for i:=1 to n-1 do for j:=i+1 to n do if(i mod 2=0)and(j mod 2=0) and(x[i]<x[j]) then begin a:=x[i]; x[i]:=x[j]; x[j]:=a; end; for i:=1 to n do write(x[i]:4); end;
CLS
N = 500
k = 4
X = 2
S = 0
DO WHILE S < N
S = S + X
PRINT X, S
X = X + k
LOOP