Автор |
Сообщение |
CTPEJIOK ...
|
Добавлено: Пт 16-10-09 : 10-23 Заголовок сообщения: Помогите с Олимпиадой! ТУРба поскаль |
|
|
Задача 1.
В тридевятом царстве злой Дракон похитил принцессу и заточил ее в замки. Иван- Царевич решил спасти ее. Чтобы добраться до принцессы, Ивану надо пройти десять комнат. В некоторых комнатах двери закрыты. Открыть их можно только с помощь. волшеб ключа, котрый харнит баба яга.
Баба яга согласилась дать ключ только при условии - если он прав. угадает, сколько дверей закрыто в замке. Она называет одно число.
Закрытх дверей в замке ровно столько, сколько единиц в двоич записи этого чисал.
Входные данные
N(1<N<1000)
Выходные данные.
вести одно число - колич единиц в двоич записи числа N |
|
 |
|
 |
Mvd Эксперт
|
Добавлено: Пт 16-10-09 : 10-49 Заголовок сообщения: |
|
|
Цитата: |
program test;
var
i,a,zero:integer;
begin
readln(a);
for i:=1 to 10 do
begin
if (a and 1=1) then inc(zero);
a:=a shr 1;
end;
writeln(zero);
readln;
end. |
|
|
 |
|
 |
CTPEJIOK ...
|
Добавлено: Пт 16-10-09 : 10-56 Заголовок сообщения: |
|
|
Mvd
Спасибо. Поможешь еще парочку? |
|
 |
|
 |
Mvd Эксперт
|
Добавлено: Пт 16-10-09 : 10-57 Заголовок сообщения: |
|
|
CTPEJIOK
Давай. Я как раз Pascal вспоминаю  |
|
 |
|
 |
CTPEJIOK ...
|
Добавлено: Пт 16-10-09 : 10-59 Заголовок сообщения: |
|
|
Mvd
о. ща напишу))
а лучше объясни.) |
|
 |
|
 |
Wega Гуру
|
Добавлено: Пт 16-10-09 : 10-59 Заголовок сообщения: |
|
|
Mvd
Ты запускал свой код? У меня есть сомнение, что он работает. Хотя я в Паскале чуть более чем ноль.
ЗЫ. Пойду найду компилятор. |
|
 |
|
 |
Mvd Эксперт
|
Добавлено: Пт 16-10-09 : 11-01 Заголовок сообщения: |
|
|
Wega
Конечно запускал  |
|
 |
|
 |
dipp Эксперт
|
Добавлено: Пт 16-10-09 : 11-17 Заголовок сообщения: |
|
|
А я вот ток не понял, зачем в условии проверяется равенство 1=1? |
|
 |
|
 |
Wega Гуру
|
Добавлено: Пт 16-10-09 : 11-20 Заголовок сообщения: |
|
|
dipp
Иначе не работает. Но почему a and 1=1 возвращает истину, когда а нечётное я понять не могу. |
|
 |
|
 |
Mvd Эксперт
|
Добавлено: Пт 16-10-09 : 11-21 Заголовок сообщения: |
|
|
dipp
Проверяем равен ли младший разряд 1. |
|
 |
|
 |
CTPEJIOK ...
|
Добавлено: Пт 16-10-09 : 11-24 Заголовок сообщения: |
|
|
В трех карбоках лежат карандаши. Учитель попросил Петю переложить часть карандашей так, чтобы в коробках стало поровну. Помогите Пете выполнить задание и напшите программу, которая будет определять какое наименьшее кол-во карандашей требуется переложить.
Вход данные
три натур числа не превосх 100
Выход данные
одно число - наеимешь кол - во карандашей кот над о перлож Если не возмонж вести слово IMPOSSIBLE |
|
 |
|
 |
Wega Гуру
|
Добавлено: Пт 16-10-09 : 11-27 Заголовок сообщения: |
|
|
Mvd
Я сюда отвечу, раз уж не одного меня это волнует .
Mvd писал(а): |
Это же побитовая операция И 1, а значит с младшим разрядом. 1 и 1 даёт 1, а 1 и 0 даёт 0. |
Было подозрение, что битовая, но проверил в гугле - логическая! Это и смутило.
http://web.mit.edu/sunsoft_v5.1/www/pascal/lang_ref/ref_assign.doc.html
Вот тут AND - логическое И, & - битовое. Это не тот Паскаль? |
|
 |
|
 |
CTPEJIOK ...
|
Добавлено: Пт 16-10-09 : 11-28 Заголовок сообщения: |
|
|
Набирая текст на клаве комп. Петя заметил что нект клавиши испов чаще, чем дургие. напишете программу которая помогала Пете определить какую клавиши нажимают чаще всего.
Вход данные
Во вход файле содержится строка символов кот состоит из строчных лат букв и имеет не нулевую длину, не прев 100
Выход данные
В выход файле выдети символы, кот придется нажимать чаще всего, и через пробел, целое число - кол-во нажатий клавиши с символом . Символ тока один. |
|
 |
|
 |
Mvd Эксперт
|
Добавлено: Пт 16-10-09 : 11-30 Заголовок сообщения: |
|
|
Wega
Цитата: |
В языках Pascal/Delphi оба вида конъюнкции обозачается с использованием ключевого слова "and", а результат действия определяется типом операндов. Если операнды имеют логический тип (например, Boolean) - выполняется логическая операция, если целочисленный (например, Byte) - поразрядная |
|
|
 |
|
 |
Wega Гуру
|
Добавлено: Пт 16-10-09 : 11-32 Заголовок сообщения: |
|
|
Mvd
Теперь ясно  |
|
 |
|
 |
Mvd Эксперт
|
Добавлено: Пт 16-10-09 : 11-52 Заголовок сообщения: |
|
|
CTPEJIOK писал(а): |
В выход файле выдети символы, кот придется нажимать чаще всего, и через пробел, целое число - кол-во нажатий клавиши с символом . Символ тока один. |
В смысле вывести только один символ который нажат максимальное количество раз или вывести все символы в отсортированном порядке? |
|
 |
|
 |
Wirs Начинающий
|
Добавлено: Пт 16-10-09 : 11-54 Заголовок сообщения: |
|
|
Wega
помоги плиииз...сидим тут и не получается...  |
|
 |
|
 |
CTPEJIOK ...
|
Добавлено: Пт 16-10-09 : 11-54 Заголовок сообщения: |
|
|
У нас есть пример
вход выход
ababac a 3 |
|
 |
|
 |
Mvd Эксперт
|
Добавлено: Пт 16-10-09 : 11-55 Заголовок сообщения: |
|
|
CTPEJIOK
Цитата: |
program test3;
var
i,a,max:integer;
S:string;
abc: array [1..26] of integer;
txt:text;
begin
Assign(txt,'in.txt');
Reset(txt);
Readln(txt,S);
Close(txt);
for i:=1 to 100 do
for a:=1 to 26 do
if (S[i]=char(a+96)) then inc(abc[a]);
max:=1;
for i:=1 to 26 do
if (abc[i]>abc[max]) then max:=i;
Assign(txt,'out.txt');
Rewrite(txt);
Writeln(char(96+max),' ',abc[max]);
Write(txt,char(96+max),' ',abc[max]);
close(txt);
readln;
end.
|
|
|
 |
|
 |
Wirs Начинающий
|
Добавлено: Пт 16-10-09 : 11-58 Заголовок сообщения: |
|
|
Mvd
а напиши плиз еще решение ворой которая про карандаши...
так глядишь с твоей помощью и на город выйдем )) |
|
 |
|
 |
|