Переведите число 1011010,1² в десятичную систему счисления...

Переведите число 1011010,1² в десятичную систему счисления

Определите значение целочисленных переменных a и b после выполнения фр...

Определите значение целочисленных переменных a и b после выполнения фрагмента программы;
a:=2468;
b:=(a mod 1000)*10;
a:=a div 1000+b

Задача 2. Дано четырехзначное число. Найти число, полученное перестано...

Задача 2. Дано четырехзначное число. Найти число, полученное перестановкой второй и третьей цифры заданного числа. (Например, 4567 ---> 4657)

Поиск результатов по фразе "Найдите 6-ой член последовательности A(i)=...

Поиск результатов по фразе "Найдите 6-ой член последовательности A(i)=A(i-1)*A(i-1) 1 , если А(1)=5." (паскаль)

Помогите пожалуйста!!! По информатике задали, а я не знаю ответов!!!

Помогите пожалуйста!!! По информатике задали, а я не знаю ответов!!!
1) на форумах выражают эмоции при помощи.....
2) антивирус(по фамилии автора)
3)щелчок правой или левой клавишей
Как ответить на вопросы? Помогите пож!!

Какое из чисел является наибольшим?
a) 9B16
b) 2348

Какое из чисел является наибольшим?
a) 9B16
b) 2348
c) 100110102
d) 153

Информатика как правильно прочитать число 0101001001001111010100110101...

Информатика как правильно прочитать число 01010010010011110101001101010100

PASCAL
Напишите программу: Дана последовательность из N элементо...

PASCAL
Напишите программу: Дана последовательность из N элементов. Найти количество двузначных чисел, в которых одна и только одна из цифр 3ка.

Pascal!!!!!
Исправьте ошибки в задаче


Program...

Pascal!!!!!
Исправьте ошибки в задаче


Program Partiii;
Var n, NumParties, i, j, t: integer;
Count:array[1..10] of integer;
s: string[50];
Names: array[1..10] of string;
Begin
NumParties:=0;
ReadLn(N);
for i:=1 to NumParties do
begin
max:=count[i];
n:=i;
for l:=1 to NumParties do
begin
if count[l]>max then
begin
max:=count[l];
n:=l;
end;
end;
if names[n]<> then begin
writeln (names[n]);
count[n]:=-1;
names[n]:=;
end;
end;
for i:=2 to NumParties do
if Count[i-1]>n then
begin
n:=Count[i];
t:=i;
end;
WriteLn(Names[t])
end.

Вот какое было задание,
Доработайте программу так, чтобы она решала следующую задачу:
1) Программа должна вывести список всех партий, встречающихся в исходном списке, в порядке убывания количества голосов, отданных за эту партию. При этом название каждой партии должно быть выведено ровно один раз, вне зависимости от того, сколько голосов было отдано за данную партию. Пример выходных данных для приведенного выше примера входных данных:
Party three
Party two
Party one

2) На вход программы подается список, при этом некоторые голоса являются недействительными, в этом случае вместо названия партии записан один символ «.» (точка). Партия проходит в парламент, если за нее отдано не менее 7% от общего числа действительных голосов (то есть от количества строк в списке, которые не равны «.»). Программа должна вывести список всех партий, прошедших в парламент, в произвольном порядке. При этом название каждой партии должно быть выведено ровно один раз, вне зависимости от того, сколько голосов было отдано за данную партию.

1. Текст закодирован в системе кодировки unicode. Зная, что в тексте 1...

1. Текст закодирован в системе кодировки unicode. Зная, что в тексте 144 символа, вычислите его объем a) 144 бит b)144 байт c)18 байт d)288 байт 2.сколько места займет пословица "в науку нет кароких путей " в памяти компьютер, если она закодирована в системе ascII a)64 байта b)66 байта c)64 бита d)32 байта 3.сколько символов содержится в тексте,объем информации которого в системе unicode составляет 720 000 байт ? A)72 b)360 000 c) 720 000 d)1000

Назад 1 2 3 4 5 6 7 8 9 10 ... 745 Далее