Даны два целых числа A и B (при этом A ≤ B). Выведите все числа от A до B включительно.

Знания

Информатика

1 ответ:

ЭлектрикС [27]4 года назад

0 0

А Б и В вот эти наверно

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

Помогите записать на языке Паскаль! Задача. Дано длинное число (записать, как строку) составить из его цыфр минимальное число,

Бомж

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
var s:=ReadlnString.OrderBy(c->c).ToArray;
var i:=s.FindIndex(t->t<>'0'); Swap(s[0],s[i]);
s.Println
end.

Пример
54560345345601323451233903454658345034521212
10000111222223333333334444444455555555566689

0 0

4 года назад

К какому виду алгоритмов можно отнести алгоритм, схема которого представлена на рисунке. ПОЖАЛУЙСТА СРОЧНО

Raviljushka [50]

1 правильно..........

0 0

4 года назад

Задача 2.В корзине лежат 4 красных и 8 черных клубков шерсти. Какое количество информации несут сообщения о том, что достали кра

Max2017

i = log ₂ 1/p

вероятность того, что достали красный клубок: Рк = 4/12 = 1/3

количество информации, что достали красный клубок:

i = log ₂ 1/(1/3) = log ₂ 3 бит

вероятность того, что достали черный клубок: Рк = 8/12 = 2/3

количество информации, что достали черный клубок:

i = log ₂ 1/(2/3) = log ₂ (3/2) бит

0 0

4 года назад

Дано: массив B(10) и число C Определить:

MaximPetrov [598]

Var
B: array[1..10] of integer;
i, c, p, s: integer;
begin
write('C = ');
readln(c);
for i := 1 to 10 do begin
write('B[', i, ']=');
readln(B[i]);
end;
c := 1;
p := 1; s := 0;
for i := 1 to 10 do begin
p := p * (B[i] - C);
s := s + B[i];
end;
for i := 1 to 10 do
writeln('A[',i,']=',(s-p)*B[i]);
end.

0 0

3 года назад

Что такое позиционное устройство ввода?СРОЧНО!

Николай920 [14]

Джестик................

0 0

4 года назад