4 года назад

Перед тобой число в двоичной системе. Отметь, какое это число в десятичной системе. 1111

Знания

Информатика

1 ответ:

БЫЧКОВ НИКОЛАЙ4 года назад

0 0

15 ......................

Читайте также

Составьте программу ,выводящую на экран все числа от -10 до 10 ,а также их модули.

Катя702 [21]

Program n;
uses crt;
var i:integer;
begin
for i:=-10 to 10 do writeln(i:4, abs(i):4);
<span>end. </span>

0 0

4 года назад

Составить программу которая из 3-х произвольных чисел наберет среднее и выведет его на экран

Max1234567

var a,b,sum,c:real; begin write(); readln(a,b,c); begin sum:=b+a+c;
sum:=sum/3 end; writeln(sum); end.

0 0

4 года назад

В тетради письменно: составить СВОЮ программу на языке программирования Паскаль, которая бы могла вычислять по аргументу (которы

Константин79 [156]

uses crt;

var x,a:real;

begin

writeln('Введи x');

readln(x);

a:=sin(x);

writeln('синус x ',a)

end.

<em>Вроде так.</em>

0 0

4 года назад

Дан одномерный массив A состоящий из 50 элементов. Сформировать массив B по правилу: B[i]:=ai^2/i+a Или вот во вложении посмотри

Ксеня ксюня

const
N = 50;

var
a:array[1..N] of integer;
b:array[1..N] of real;
i:integer;

begin
randomize;
for i := 1 to N do
begin
a[i]:=100-random(201);
b[i]:=sqr(a[i])/(i+a[i]);
writeln('a[',i,']=',a[i],'; b[',i,']=',b[i]:5:3);
end;

end.

0 0

4 года назад

Прочитать ещё 2 ответа

Подскажите, что нужно изменить, чтобы программа правильно работала(паскаль) Заполнить массив случайными числами в интервале [-10

Vladisis [4]

Const
    n = 10;

var
    i, c: integer;
    a, w: array[1..n] of integer;

begin
    randomize;

    writeln('Исходный массив:');
    for i := 1 to n do
    begin
        a[i] := random(201) - 100;
        write(a[i], ' ');
    end;
    writeln;

    c := 0;
    for i := 1 to n do
        if a[i] > 0 then
        begin
            c := c + 1;
            w[c] := a[i];
        end;

    writeln('Кол-во положительных элементов: ', c);
    for i := 1 to n do
    begin
        if a[i] <= 0 then
        begin
            c := c + 1;
            w[c] := a[i];
        end;
    end;

    writeln('Результат:');
    for i := 1 to c do
        write(w[i], ' ');
end.

0 0

4 года назад

Прочитать ещё 2 ответа