Рисунок размером 256 на 720 пикселей занимает в памяти 45 Кбайт без учёта сжатия. Найдите максимально возможный количество цветов в палитре изображения
Август Кекуле Август Кекуле - немецкий химик мирового значения, открыл химическую формулу бензола. Его избрали почетным членом многие академии мира, с его мнением считались не только ученые, но и промышленники. Просмотров: 9437 Адольф фон Байер Адольф фон Байер - немецкий химик, анализируя обратный процесс, получение индиго путем окисления изатина, впервые сумел синтезировать индиго, сделав, таким образом, возможным его промышленное производство. Просмотров: 6398 Александр Михайлович Бутлеров Александр Михайлович Бутлеров - русский химик, открытая им теория химического строения служит теперь принципиальной основой всех без исключения современных разделов синтетической химии. Просмотров: 11279 Альфред Вернер Альфред Вернер - немецкий химик, открыл оптически активные неорганические изомеры - соединения кобальта, хрома, железа. Это было крупным успехом дальнейшего развития неорганической химии. Просмотров: 6849 Антуан Лоран Лавуазье Антуан Лоран Лавуазье — французский химик, объяснил факт горения, — целый мир явлений окисления, происходящих всегда и всюду — в воздухе, земле, организмах — во всей мертвой и живой природе. Просмотров: 8849
Uses Crt;
Var count, num, ch: integer;
Begin
ClrScr;
Writeln('Год високосный? 1 - да, 0 - нет');
Readln(Ch);
If ch=1 then
Begin
Writeln('Введите номер месяца');
Readln(num);
Сase num of
1, 3, 5, 7, 8, 10, 12: writeln('В месяце 31 день.');
4, 6, 9, 11: writeln('В месяце 30 дней.');
2: writeln('В месяце 29 дней');
else writeln('Некорректный ввод данных')
End;
End
Else if ch=0 then
Begin
Writeln('Введите номер месяца');
Readln(num);
Сase num of
1, 3, 5, 7, 8, 10, 12: writeln('В месяце 31 день.');
4, 6, 9, 11: writeln('В месяце 30 дней.');
2: writeln('В месяце 28 дней');
else writeln('Некорректный ввод данных')
End;
End
Else writeln('Некорректный ввод данных');
Readln;
End.
Август Кекуле - немецкий химик мирового
значения, открыл химическую формулу
бензола. Его избрали почетным членом многие
академии мира, с его мнением считались не
только ученые, но и промышленники.
Просмотров: 9437
Адольф фон Байер
Адольф фон Байер - немецкий химик,
анализируя обратный процесс, получение
индиго путем окисления изатина, впервые
сумел синтезировать индиго, сделав, таким
образом, возможным его промышленное
производство.
Просмотров: 6398
Александр Михайлович Бутлеров
Александр Михайлович Бутлеров - русский
химик, открытая им теория химического
строения служит теперь принципиальной
основой всех без исключения современных
разделов синтетической химии.
Просмотров: 11279
Альфред Вернер
Альфред Вернер - немецкий химик, открыл
оптически активные неорганические изомеры -
соединения кобальта, хрома, железа. Это было
крупным успехом дальнейшего развития
неорганической химии.
Просмотров: 6849
Антуан Лоран Лавуазье
Антуан Лоран Лавуазье — французский химик,
объяснил факт горения, — целый мир явлений
окисления, происходящих всегда и всюду — в
воздухе, земле, организмах — во всей мертвой
и живой природе.
Просмотров: 8849