Var a:longint;
Begin
Read(a);
If (a>=1)and(a<=100) then writeln('молодёжь')else
If (a>=101)and(a<=200) then writeln('взрослые')else
If (a>=200)and(a<=250) then writeln('пенсионеры')else
Writeln('-');
End.
BEGIN
INT I, SUM;
/* ЧИСЛО МОНЕТОК */
SUM := 0;
FOR (I := 0; I <= 10000; I++)
BEGIN
SUM := SUM + I;
END;
/* РЕЗУЛЬТАТ */
PRINTLN ('ЧИСЛО МОНЕТОК: ' + STR(SUM));
END
512 байт = 512*8 бит
Для хранения 1 пикселя необходимо 512*8/(64*64) = 1 бит
Количество цветов = 2^1 = 2
Программа на Паскале прилагается.
1)1-а,2-г,3-в,4-б,5-д
2)1мбайт,1024байт,8бит,1000кбайт,1кбайт
10)б
11)а-2,б-3,в-1
9)а
8)в