Если индексы массива начинаются с 0
1) EL[3, 1] = H
2) EL[2, 3] = Q
Если индексы массива начинаются с 1
1) EL[4, 2] = H
2) EL[2, 3] = M
Эммм, типа двоичными числами что ли? ну как то так:
88 = 64 + 24 = 64 + 16 + 8 88=01011000
17 = 00010001
130 = 10000001
128 = 10000000
88.17.130.128 = 088.017.130.128 = 01011000.00010001.10000001.10000000
224 = 128 + 96 = 128 + 64 + 32 224 = 11100000
5=101
22=10110
224.5.0.22 = 224.005.000.022 = 11100000.00000101.00000000.00010110
11100(2) - 28 учеников
15(8) - 13 девочек
Мальчиков 28-13=15
Function NOD(a, b: longint): longint;
begin
while a <> b do
if a > b then a := a - b
else b := b - a;
NOD := a
end;
var
A, B, C: longint;
begin
Write('Введите три натуральных числа: '); Readln(A, B, C);
Writeln('НОД=', NOD(NOD(A, B), C))
end.
<em><u>Тестовое решение:</u></em>
Введите три натуральных числа: 256 48 24
НОД=8
Program one;
var a,b,c,k: integer;
begin
writeln ('Введите числа, нажимая после каждого enter');
readln (a);
readln (b);
readln (c);
k:=0;
If a>0 then k:=k+1 else k:=k+0;
If b>0 then k:=k+1 else k:=k+0;
If c>0 then k:=k+1 else k:=k+0;
writeln ('Количество положительных чисел ', k)
end.