Подайте текст любіть україну як сонце любіть у вигляді коду використовуючи таблицю кодів міжнародного стандарту юнікод

var a: integer;

begin

writeln ('vvedite nomer mesuaca');

read (a);

if (a=1) then writeln ('30');

if (a=2) then writeln ('28');

if (a=3) then writeln ('30');  

  if (a=4) then writeln ('31');  

  if (a=5) then writeln ('30');  

  if (a=6) then writeln ('31');  

  if (a=7) then writeln ('30');  

  if (a=8) then writeln ('31');  

  if (a=9) then writeln ('30');  

  if (a=10) then writeln ('31');  

  if (a=11) then writeln ('30');  

  if (a=12) then writeln ('31');  

end. 

  256 цветов = 8 бит/пикс = 1 байт/пикс, 300*200=60000 пикс - общий размер изображения, 4 цвета - 2 бита/пикс, 60000*2=120000 бит - объём видеопамяти, 120000=15000 байт, значит максимально допустимый размер изображения равен 15000 байт, если палитра будет 256 цветов, то размер изображения будет 15000 пикселей, 15000=100х150, значит ответ: 100х150

1-ый способ: 1 взрослый и 1 мальчик перебираются на другой берег реки, потом взрослый возвращается назад, и за тем он и второй мальчик перебираются на другой берег реки, потом один из мальчиков   возвращается за вторым взрослым.

2-ой способ: или два мальчика сидят на плоту, а двое взрослых держатся за плот и перебираются на другой берег реки.

var i,n,q: integer;

begin

  read(q);

  repeat

      i: =i+1;

      n: =n+i;

  until n> =q;

  writeln(i);

end.

var i,n,q: integer;

s,a: real;

begin

  a: =10;

  repeat

      i: =i+1;

      s: =s+a;

      a: =a*0.1;

  until s> =100;

  writeln(i);

end.