var
a, b: longint;
begin
writeln('Введите первое число.');
readln(a);
writeln('Введите второе число.');
readln(b);
if b > a then
writeln(a, ' ', b)
else
writeln(b, ' ', a)
end.
Может быть это? <span>pascal: </span>
<span>var a: array [1..20] of integer; </span>
<span>i, k: integer; </span>
<span>s: real; </span>
<span>begin </span>
<span>// заполняем массив c клавиатуры </span>
<span>for i:=1 to 20 do </span>
<span>readln(ar); </span>
<span>//считаем среднеариф-е </span>
<span>s := 0; </span>
<span>k := 0; </span>
<span>for i:=1 to 20 do </span>
<span>if a >=0 then begin </span>
<span>s := s + a; </span>
<span>k := k + 1; </span>
<span>end; </span>
<span>writeln('среднее: ', s/k); </span>
<span>end.</span>
#include <iostream>
int main() {
long n;
std::cin >> n;
long power = 10;
for (long i = 1; i <= n; i++) {
if (power <= i) {
power *= 10;
}
if (i * i % power == i) {
std::cout << i << " ";
}
}
return 0;
}
№6 1)
Расписываем код адреса по байтам (по 8 бит):
1 2 3 4
11001100 10011000 10111110 01000111 в 2с/с каждый байт переводим из 2с/с в 10с/с
1 байт = 2^7 +2^6 +2³+2² =128+64+8+4 =204
2 байт =2^7 +2^4 +2^3 =128+16+8 =152
3 байт =2^7+2^5+2^4+2³+2²+2 =128+32+16+8+4+2=190
4 байт =2^6+2²+2+1=71
IP- адрес 204.152.190.71
№6 2) - аналогично 1)
1 2 3 4
11011110 11000011 1010010 00110010
1 байт = 2^7+2^6 +2^4+2³+2²+2=128+64+16+8+4+2 =222
2 байт = 2^7+2^6 +2 +1=195
3 байт = 2^7 +2^5 +2=162
4 байт= 2^5+2^4+2 =50
IP - адрес: 222.195.162.50
Program n2;
const n=10;
var a: array [1..n] of integer;
i,k,j,temp: integer;
begin
randomize;
writeln('исходный массив');
k:=0;
for i:=1 to n do
begin
a[i]:=random(201)-100;
write(a[i],' ');
end;
writeln;
writeln('полученный массив: ');
for i:=1 to n do
for j:=i to n do
if a[j]>a[i] then
begin
temp:=a[i];
a[i]:=a[j];
a[j]:=temp
end;
for i:=1 to n do begin
write(a[i],' ');
if (a[i]<0) and (i mod 2=0) then k:=k+1;
end;
writeln;
write('кол-во отрицательных элементов на четных местах: ',k);
end.