1) Видеокарта 2)Звуковая карта 3)Оперативная память 4)Процессор
program raf105;
const
n = 9;
var
a,b1,b2:array[1..n] of integer;
k,i,j,c1,c2:integer;
begin
write('Введите число k: ');
readln(k);
writeln('Заполните массив:');
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
begin
if a[i] > k
then begin
c1:= c1 + 1;
b1[c1]:= a[i];
end;
if a[i] < k
then begin
c2:= c2 + 1;
b2[c2]:= a[i];
end;
end;
for i:=1 to c1 do
a[i]:=b1[i];
for i:=c1+1 to c2+c1 do
a[i]:=b2[i-c1];
write('Вывод: ');
for i:=1 to n do
write(a[i],' ');
end.
<h3><u>PascalABC 3.4.2</u></h3>
Неформальный исполнитель - человек => ученик
<span>//2.19
var a,a1,a2,a3,a4:integer;
begin
readln(a);
a:=abs(a);
a1:=a div 1000;
a2:=a div 100 mod 10;
a3:=a mod 100 div 10;
a4:=a mod 10;
writeln('S = ',a1+a2+a3+a4);
writeln('P = ',a1*a2*a3*a4);
end<span>.
Пример:
4318
</span><span>S = 16
P = 96
//2.14 (для натуральных чисел)
var a:integer;
begin
readln(a);
a:=a mod 100*10 + a div 100;
writeln('a = ',a);
end.
Пример:
431
<span>a = 314
//4.23 а)
var a,a1,a2:integer;
begin
readln(a);
a:=abs(a);
a1:=a div 10;
a2:=a mod 10;
if a1 > a2 then writeln(a1,' > ',a2)
else if a1 < a2 then writeln(a1,' < ',a2)
else writeln(a1,' = ',a2)
end.
Пример:
43
4 > 3
//4.23 б)
var a,a1,a2:integer;
begin
readln(a);
a:=abs(a);
a1:=a div 10;
a2:=a mod 10;
if a1 = a2 then writeln(a1,' = ',a2)
else writeln(a1,' <> ',a2)
end.
Пример:
43
4 <> 3</span></span></span>
Танграм - это головоломка, состоящяя из фигур, для образования более сложной фигуры
