Визначення що таке об'єкт?

Знания

Информатика

1 ответ:

Darya12 [7]4 года назад

0 0

Це предмет на який направлена певна дiяльнiсть

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

Ввести число. Вычислить сумму первой и последней цифры. pascal цикл while или repeat

Ksenia Kritskaya [87]

Program n1;
var
sum, n: longint;
begin
sum:=0;
write('введите число: ');
readln(n);
sum:=n mod 10;
while n>10 do
n:=n div 10;
sum:=sum+n;
writeln('сумма 1 и последней цифр равна ',sum);
end.

0 0

3 года назад

перевод из двоичной системы в десятичную:110000 и 1100,001перевод из десятичной в двоичную:31 и 127выполнить сравнения чисел:100

DIMAN DANCER

110000=48
1100=12
001=1
__
31=11111
127=1111111

0 0

4 года назад

Как например?как заполнить таблицу?

juno-D

1.Гарри Поттер и Кубок огня.
Дж.яК.Ролинг.
2002 год издания

0 0

4 года назад

Дано натуральное число Х. Вычислить Y = 1 - 2X + 3X2(в квадрате) - 4X3(в третьей степени). Разрешается использовать не более 8 а

Денис колме [40]

Var
    step: array[1..8] of real;
    i, x: integer;

begin
    readln(x);

    step[1] := 1 - x;
    step[2] := step[1] * step[1];
    step[3] := step[2] * step[1];
    step[4] := 3 * x;
    step[5] := step[4] * x;
    step[6] := 1 - step[5];
    step[7] := step[6] * x;
    step[8] := step[3] + step[7];

    for i := 1 to 8 do
        write(step[i], ' ');
end.

0 0

4 года назад

Вывести на экран 10 случайных чисел в диапазоне от -100 до 100 и найдите кол-во четных и не четных чисел. Pascal

ilkk [4]

// PascalABC.NET 3.2, сборка 1370 от 24.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(10,-100,100); a.Println;
var n:=a.Where(x->x.IsEven).Count;
Writeln('Четных- ',n,', нечетных- ',10-n)
end.

Пример
44 79 -39 29 -81 -50 33 -96 52 -47
Четных- 4, нечетных- 6

0 0

2 года назад