1) на Pascal: var t,i,j:integer; a:array[1..4]of integer; begin for i:=1 to 4 do begin write('Vvedite ',i,'-i 4islo: '); readln(a); end; for i:=2 to 4 do for j:=4 downto i do if a[j-1]>a[j] then begin t:=a[j-1]; a[j-1]:=a[j]; a[j]:=t; end; writeln('Raspolagaem 4isla v poryadke vozrastaniya:'); for i:=1 to 4 do writeln(a); readln; end.
2) на С: #include <stdio.h> #include <conio.h> void main(void){ int n,a,b,c,d; printf("\nVvedite 4x-znachnoe chislo n: "); scanf("%i", &n); a=n/1000; b=(n-a*1000)/100; c=(n-a*1000-b*100)/10; d=n-a*1000-b*100-c*10; if (a+b==c+d) printf("true"); else printf("false"); getch();
begin var a:=ArrRandom(10,-50,50); writeln('1)'); a.Println; writeln('Среднее арифметическое четных элементов = ', a.Where(x->x mod 2=0).Average); var c:=ArrRandom(10,-50,50); writeln('2)'); c.Println; writeln('max+min = ',c.Max+c.Min); writeln('3)'); var n:=ReadInteger('n ='); var b:=SeqGen(n,random(5),x->x+random(1,5)).ToArray; b.Println; var s:=ReadInteger('s ='); var k:=b.Where(x->x<s).Count; b:=b[:k]+Arr(s)+b[k:]; b.Println; end.
uses drawman;
{Рисует одну вишенку по часовой стрелке, начиная с верхней линии}
procedure Berry();
begin
onvector(1, 0);
onvector(1, -1);
onvector(0, -1);
onvector(-1, -1);
onvector(-1, 0);
onvector(-1, 1);
onvector(0, 1);
onvector(1, 1);
end;
{Рисует сразу оба листка}
procedure Leaf();
begin
onvector(2, 0);
onvector(2, -2);
onvector(-2, 0);
onvector(-4, 4);
onvector(-2, 0);
onvector(2, -2);
onvector(2, 0);
end;
begin
field(15, 12);
topoint(6, 10);
pendown;
Leaf;
onvector(-3, -6);
onvector(-1, 0);
Berry;
onvector(1, 0);
onvector(3, 6);
onvector(0, -6);
Berry;
end.