1 Найти Кощея
2 Убить кощея кислотой
3 Скрыть труп Кощея
Var
m: integer;
begin
for m:=12 downto 6 do
writeln (m*m*m);
readln;
end.
Var n,c,i: integer; A: array[1..10000] of integer;begin write('Кол-во частей: '); read(n);
for i:=1 to n do read(A[i]);
c:=0; for i:=1 to n do if A[i] mod 2 = 0 then c += 1; write('Чётных чисел: ',c);end.
Полный текст программы:
var a: array[1..50] of Integer;
i,x,imax,j,n: Integer;
begin
for i:=1 to n-1 do
begin
imax:=i;
for j:=i+1 to n do if a[j]>a[imax] then imax:=j;
x:=a[i];
a[i]:=a[imax];
a[imax]:=x;
end;
end.
Var y,x:integer;
begin
for x:= -4 to 4 do begin
y:=sqr(x)+2;
writeln ('y=',y);
end;
end.