Двоичное представление чисел 0 1 2 3 и 4
Е 0 0000
П 1 0001
Н 2 0010
Ч 3 0011
Ь 4 0100
ПЕЧЕНЬЕ в виде двоичного кода
0001 0000 0011 0000 0010 0100 0000
ответ в восьмеричном коде 100601100
Program p1;
var sum,i,m:integer;
begin
writeln('Введите m: ');
readln(m);
sum:=0;
while i<m do
begin
i:=i+1;
sum:=sum+i;
end;
writeln('Сумма натуральных чисел =',sum);
end.<span>
</span>
Program MinDist;
{$APPTYPE CONSOLE}
uses sysutils;
const
k = 100;
ax = 10;
ay = -2;
var
T: array[1..k, 1..2] of integer;
r, rmin, i, n: integer;
begin
write('Введите число точек на плоскости: ');
readln(n);
rmin := 32767;
Randomize;
writeln('Исходные данные:');
for i := 1 to n do
begin
T[i, 1] := Random(51) - 25;
T[i, 2] := Random(51) - 25;
r := sqr(T[i, 1] - ax) + sqr(T[i, 2] - ay);
if rmin > r then rmin := r;
writeln('(', T[i, 1], ',', T[i, 2], ')')
end;
writeln(#13#10, 'Минимальное расстояние от А(', ax, ',', ay, ') равно: ', sqrt(rmin))
end.
var age = 11;
var accompanied = true;
if (age >= 12 | accompanied) {
alert('Yes');
} else {
alert('No');
}