Задать вопрос!

Задать вопрос!

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

Эльвина312 [319]

4 года назад

11

ИНФА!!! ИНФОРМАТИКА!!! ХЭПЛ!!!! БОГОМ ВЫМАЛИВАЮ!!!!! ЗАРАНЕЕ СПАСИБО!

ИНФА!!! ИНФОРМАТИКА!!! ХЭПЛ!!!! БОГОМ ВЫМАЛИВАЮ!!!!! ЗАРАНЕЕ СПАСИБО!

Информатика

2 ответа:

Skarabey394 года назад

0 0

Ответ:

10 дорог будет связывать А и К

Петр 123 -4 года назад

0 0

Ответ:

10 дорог будет связывать А и К

Объяснение:

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

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

Moler21 [50]

В десятичной системе
$152 = 1 \times {10}^{2} + 5 \times {10}^{1} + 2 \times {10}^{0}$
в двоичной системе:
$152 = 1 \times {2}^{7} + 0 \times {2}^{6} + 0 \times {2}^{5} + 1 \times {2}^{4} + 1 \times {2}^{3} + 0 \times {2}^{2} + 1 \times {2}^{1} + 0 {2}^{0}$
т.е. 10011010

0 0

3 года назад

Составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 20 и выводит на экран элеме

масу

var

a:array [1..10] of integer;

i:integer;

begin

randomize;

for i:=1 to 10 do begin

a[i]:=random(20)+1;

write (a[i],' ');

end;

writeln;

for i:=1 to 10 do

if odd(a[i])=true then write (a[i],' ');

readln;

end.

0 0

3 года назад

Какое из предложенных утверждений является высказыванием? 1)Все натуральные числа-целые 2)Существуют внеземные цивилизации

Vorontsova [55]

Предложение №2. оно высказыват.

0 0

4 года назад

Паскаль. помогите пожалуйста. 40 баллов

Алёна Бачинкова [1]

Var
n, cnt, sum, i, t: integer;
begin
read(n);
cnt := 0;
sum := 0;
for i := 1 to n do
begin
read(t);
if t > 0 then
begin
inc(cnt);
sum := sum + t;
end;
end;
writeln(sum / cnt : 0 : 1);
write(cnt);
end.

0 0

1 год назад

Написать программу в Паскале. Задача: Заполнить экран синим цветом.Введите строчку с клавиатуры.Выведите строку в правом верхнем

Fredy79

uses
GraphABC;
var
s: string; <em>//Вся строка</em>
i: byte; <em>//Номер нужного слова</em>
begin
readln(s);
readln(i);
s := s.Split(' ')[0] + ' ' + s.Split(' ')[i - 1];
SetBrushColor(clBlue);
FillRectangle(0, 0, WindowWidth, WindowHeight);
GraphABC.SetFontSize(12);
TextOut(WindowWidth - s.Length * 12, 0, s);
end.

0 0

4 года назад