//PascalGUI
var
a:integer;
begin
readln(a);
case a of
1:writeln('Понедельник');
2:writeln('Вторник');
3:writeln('Среда');
4:writeln('Четверг');
5:writeln('Пятница');
6:writeln('Суббота');
7:writeln('Воскресенье')
else writeln('Не день недели');
end;
end.
Пример ввода:
1
Пример вывода:
Понедельник
Ответ а. єто докладно если .сто процентов
Var
i, s: integer;
begin
s := 0;
for i := 10 to 99 do
if i mod 2 = 0 then
s := s + i;
writeln(s);
end.
[512, 384, 168]
Глубина цвета = 168 Кбайт / (512 * 384 пикселей) = 168 * 8 * 1024 бит / 196608 пикселей = 1376256 бит / 196608 пикселей = 7.0 бит
Кол-во цветов = 2^7.0 бит = 128.0 цветов