Закодировать текс с кодировочной таблицы ascii happy birthday to you! ! , )

72 97 112 112 121 32 66 105 114 116 104 100 97 121 32 116 111 32 121 111 117 33 

 

 

Первая программа var   n, i, x, s : integer;   t : boolean; begin   writeln('количество чисел');   readln(n);   s : = 1;   t : = false;   for i : = 1 to n do     begin       writeln(i,' число');       readln(x);       if x < 7 then         begin           t : = true;           s : = s*x;         end;     end;   if t then     writeln('ответ ',s)   else     writeln('ответ ',0); end.втораяvar  n, i, x, s : integer; begin  writeln('kolichestvo chisel');   readln(n);   s : = 0;   for i : = 1 to n do    begin      writeln(i,' chislo');       readln(x);       if (x > = 10) and (x < 99) then        s : = s + 1;     end;   writeln('otvet: ',s); end.третьяvar  n, i, x, s : integer; begin  writeln('kolichestvo chisel');   readln(n);   s : = 0;   for i : = 1 to n do    begin      writeln(i,' chislo');       readln(x);       if x > 10 then        s : = s + 1      else if x < 10 then        s : = s - 1;     end;   if s > 0 then        writeln('chisel > 10 bolche')  else if s < 0 then    writeln('chisel < 10 bolche')  else    writeln('chisel porovnu'); end.четвёртаяvar  n, i, x : integer;   st : string; begin  writeln('kolichestvo chisel');   readln(n);   for i : = 1 to n do    begin      writeln(i,' chislo');       readln(x);       if (x > 12)   and (x < 40) and (x mod 7 = 0) then        st : = st + inttostr(x) + ' ';     end;     writeln('otvet: ',st); end.

1. для аппаратных средств (аппаратный уровень) - разновидности ассемблеров - здесь важна точность;

2. приближенное с ядру системы (системный уровень) - c, c++, delphi (paskal) (это нативные языки) - здесь важна скорость (как написания так и выполнения);

3. для решения научных рутин (прикладной уровень) - любые, в основном это java, c++, delphi, но тут главное не язык, а куча разных библиотек для ускорения и написания. чаше всего это интерпретируемые языки.

в основном чаще пользуются java, с++, .net, php, python.