Запишите букву "а" латинскую, 100 раз подряд. сдайте на проверку программу, которая выводит эту строчку без ковычек
паскаль
​

юра из новгородатоля из москвы

алеша из томска

коля из перми

витя из санкт-петербурга 

program xxx;

  s : string;

  a : integer;

begin

    writeln('введите строку символов: '

    readln (s);

    a: = length(s);  

    if a mod 2= 0 then writeln ('четное') else writeln('не четное');

    readln;

end.

program a1; const n=20; var c: array [1..100] of integer; var i,k: integer; begink: =0; for i: =1 to n do beginc[i]: =random(101)-50; {заполнение массива произвольно от -50 до 50}write(' ',c[i]); {вывод массива на экран}end; for i: =2 to n doif c[i]< c[i-1] then k: =k+1; {сравнение элемента с предыдущим и счет  элементов которые меньше}writeln; writeln('количество элементов=',k); end.

на пиксель приходится 512*8/32²=4 бита.  2^4=16 цветов.