Все категории

4 года назад

Задача на смекалку. Четыре пассажира ждали поезд 2 часа. Сколько времени ждал поезд каждый пассажир?

Знания

Информатика

1 ответ:

YuryWeber4 года назад

0 0

каждний пассажир ждал поезд 2 часа

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

Визначте довжину двійкового коду слова із 24 символів у кодуванні Unicode

Юрий-25 [7]

24 * 2 = 48 байта - В Unicode каждый символ кодируется 2 Байтами
Зная, что в 1 байте содержится 8 бит делаем следующее:
48 байта * 8 = 384 бит
<span>Ответ: 384 бит</span>

0 0

4 года назад

Заданы два числовых массива (стека) одинаковой длины с целыми числами. Составьте программу с помощью которой можно: 1) все числа

Гошанчик

const n=10;

var a,b:array[1..n] of integer;

i: integer;

begin

for i:=1 to n do

begin

a[i]:=random(10);

write (a[i]:3)

end;

writeln;

for i:=1 to n do

begin

b[i]:=random(10);

write (b[i]:3)

end;

writeln;

for i:=1 to n do

begin

b[i]:=a[i];

write (b[i]:3)

end;

writeln;

end.

0 0

4 года назад

Помогите написать программу в паскаль.

wasd88 [90]

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

uses GraphABC;

begin
Window.SetSize(550,500);
var c:=new GraphABCCoordinate;
c.SetMathematic;
c.OriginY:=500;
Pen.Color:=clBlack;
DrawPolygon(Arr((80,40),(240,280),(200,120)));
DrawPolygon(Arr((320,280),(480,40),(360,120)));
DrawPolygon(Arr((160,120),(240,440),(280,480),(320,440),(400,120)));
DrawPolygon(Arr((280,200),(240,240),(280,280),(320,240)));
DrawPolygon(Arr((280,320),(240,360),(280,400),(320,360)))
end.

0 0

4 года назад

Во сколько раз в позиционных системах счисления различаются значения цифр соседних разрядов числа?

Иван5656 [1]

В основание выбранной системы счисления.

Для двоичной в 2 раза

Для восьмеричной в 8 раз

Для десятичной в 10 раз

Для шестнадцатиричной в 16 раз

и так далее

0 0

4 года назад

В одномерном массиве А , состоящий из N действительных элементов , вычислить : a ) сумму отрицательных элементов массива ; b ) к

bacss2008

Const n=10;
var a:array[1..n] of real;
i,k:integer;
s:real;
begin
s:=0; k:=0;
for i:=1 to n do
begin
readln(a[i]);
if a[i]<0 then s:=s+a[i];
if (a[i]<5) and (a[i]>-7) then inc(k);
end;
writeln(s,' ',k);
end.

0 0

4 года назад