Задание в Питоне! 1. Обеспечить ввод пароля. Вы должны ввести пароль после запуска программы. Используйте свою фамилию в качестве правильного пароля. Если это правильно, вопросы вывод и ответы предоставляются пользователем. В случае неправильного пароля сообщение "Неправильный пароль" является выходом и программа завершается.
2. Проектирование ввода и вывода данных со следующими цветами:
А. Цвет рамы - темно-зеленый;
B. Цвет вопроса - светло-зеленый;
c. Цвет текста информации, которая будет введена, желтый;
d. Цвет предупреждающих сообщений: красный;
E. Текстовое цвет информации будет белый
· Цвет съедобного возраста (числа) красный, если возраст меньше 18 лет, в случае другого, возраст устраняется в светло-голубом;
· Цвет ежемесячного названия должен быть удален должен зависеть от сезона месяца: зимние месяцы должны быть удалены в светло-голубой, весенние месяцы в зеленом, летние - желтые, а осенние месяцы в красном;
F. Выходная информационная рамка цвета - синий;
3. Сделайте оповещение о неправильно введенной мигающей парой - надпись мигает 5 раз и исчезает
=В$5+=$А8
Объяснение:
данная формула содержит смешанную ссылку
В6 =А$5+$А6
Надо скопировать в С8
B6-- C8 ( посмотри что изменилось)
буква была В стала С ( на одну позицию вперед +1)
цифра 6 изменилась на 8 ( на две позиции +2)
к формуле =А$5+$А6 применим эти изменения
но учтем что $ - это абсолютный адрес и он не будет меняться
=А$5
была А ( на одну позицию вперед) --- В
$5 при копировании не изменится
=В$5
$А6
при копировании $А ничего не происходит
6 на две позиции увеличиваем =8
=$А8
Тогда формула =А$5+$А6 приобретет вид =В$5+=$А8
i,k,N : Integer;
Begin
For i:=0 to 6 do m[i]:=0;
Readln(N);
k:=6;
While N>0 do
Begin
If N>=Power(2,k) then
Begin
N:=N-Trunc(Power(2,k));
Inc(m[k]);
end else Dec(k);
end;
For i:=0 to 6 do Writeln(Power(2,i),' ',m[i],' шт.');
end.
Еще вариант:
Const
NN = 7;
money : array[1..7] of Integer = (1,2,4,8,16,32,64);
Var m : array[1..NN] of Integer;
i,k,N : Integer;
Begin
For i:=1 to NN do m[i]:=0;
Readln(N);
k:=NN;
While N>0 do
Begin
If N>=money[k] then
Begin
N:=N-money[k];
Inc(m[k]);
end else Dec(k);
end;
For i:=1 to NN do Writeln(money[i],' ',m[i],' шт.');
end.