<span>Количество бит информации в сообщении "пойманная в пруду рыба - карп" (всего в пруду 256 карасей, 44 щуки, 100 карпов) , равно: 2; 4; 3; 5; 1.</span>
const
N = 40;
type
Tmas = array[1..N] of integer;
procedure input(var m: Tmas);
var
i: longint;
begin
for i := 1 to N do
readln(m[i]);
end;
procedure change(var m: Tmas);
var
kol, i: longint;
begin
kol := 0;
for i := 1 to N do
if (m[i] mod 3 = 0) and (m[i] mod 10 = 1) then
inc(kol);
for i := 1 to N do
if (m[i] mod 3 = 0) and (m[i] mod 10 = 1) and (kol <> 0) then
m[i] := kol;
end;
procedure output(m: Tmas);
var
i: longint;
begin
for i := 1 to N do
write(m[i] + ' ');
end;
var
m: Tmas;
begin
input(m);
change(m);
output(m);
end.
#include<iostream>
using namespace std;
int main() {
<span> int n;
</span><span> cout << "Enter n" << endl;
</span><span> cin >> n;
</span><span> for (int x = 0; x <= sqrt(n); x++)
</span><span> for (int y = 0; y <= sqrt(n); y++)
</span><span> for (int z = 0; z <= sqrt(n); z++)
</span><span> for (int t = 0; t <= sqrt(n); t++)
</span><span> if (x*x + y*y + z*z + t*t == n)
cout << "x=" << x << " y=" << y << " z=" << z << " t=" << t << endl;</span><span> system("pause");
</span><span> return 0;
</span><span> }</span>
Var A: array [1..10] of integer; i,b: integer; begin for i:=1 to 10 do readln(A[i]); for i:=1 to 10 do begin if A[i]=5 then writeln(i,' Строка'); end; end.
Множество первых букв русского алфавита.
Содержится всего 1 элемент: буква "А"