4 года назад

Запишите выражение по правилам алгоритмического языка c=c^3+b+c/b-a

Знания

Информатика

1 ответ:

666Андрей6664 года назад

0 0

C=((c * c * c) + b + (c / b) - a);

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

Увеличить переменную a в 50р.,если a нечетное число иначе увеличить на 30РЕБЯТ ОЧЕНЬ НУЖНО!

александрс2

Var a:real;
begin
readln(a);
if(a mod 2 = 0) writeln(a+30) else writeln(a*50);
end.

0 0

4 года назад

Переведите число 30 из десятичной системы счисления в двоичную систему счисления.

Nika-gold [59]

30 : 2 = 15 Остаток 0
15 : 2 = 7 Остаток 1
7 : 2 = 3 Остаток 1
3 : 2 = 1 Остаток 1
Записываем оставшуюся единичку и далее все остатки в обратном порядке:
11110. Это и будет число 30, переведенное из десятичной системы счисления в двоичную

0 0

3 года назад

1. Информационное сообщение объёмом 600 битов состоит из 200 символов. Каков информационный вес каждого символа этого сообщения?

Imhotep 54

Ответ:

1)3

2)-

Объяснение:

1)600:200=3byte

2)512-сообшения 6

Тут не достаточно информации сколько хотя бы 1 символ весит?

0 0

4 года назад

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

Запишите число 19 в двоичной системе счисления.

medlotos

19=16+2+1=10011(2)
<span>ответ 2)</span>

0 0

4 года назад

Надо сгенерировать 3 рандомных чисел.Если эти три числа будет делится на 3 надо поставить ОК а если эти три числа не будет делит

котсталкер

Ответ:

program Random3;

uses

System.SysUtils;

var

A: array [1..3] of Integer;

i: Integer;

b: Boolean;

begin

Randomize;

Write ('Три случайный числа: ');

for i := Low (A) to High (A) do begin

A [i] := Random (9) + 1;

Write (A [i], ' ');

end;

b := True;

for i := Low (A) to High (A) do

if A [i] mod 3 <> 0 then begin

b := False;

Break;

end;

WriteLn;

if b then

WriteLn ('OK')

else

WriteLn ('NO OK');

ReadLn;

end.

0 0

4 года назад