Const n=36; s='Юля'; begin Writeln('Код ',n,' принадлежит символу "',Chr(n),'"'); Writeln('Длина слова "',s,'" в байтах равна ',Length(s)); Writeln('В битах это составляет ',8*Length(s)) end.
Результат Код 36 принадлежит символу "$" Длина слова "Юля" в байтах равна 3 В битах это составляет 24
1. var n,i:integer; mass:array[1..10000] of integer; begin writeln('Введите кол-во чисел'); read(n); for i:=1 to n do begin write('mass[',i,']='); read(mass[i]); end; writeln('Элементы массива которые четные и двухначные'); for i:=1 to n do if (mass[i] mod 2=0) and (mass[i] div 10>0) and (mass[i] div 10<10) then write(mass[i]:4); end. 2. var n,i:integer; mass:array[1..10000] of integer; begin writeln('Введите кол-во чисел'); read(n); for i:=1 to n do begin write('mass[',i,']='); read(mass[i]); end; writeln('Элементы массива которые кратны 4 и трехзначные'); for i:=1 to n do if (mass[i] mod 4=0) and (mass[i] div 100>0) and (mass[i] div 100<10) then write(mass[i]:4); end. 3. var i,a,m:integer; begin m:=3; for i:=1 to 10 do writeln(i,' * ',m,' = ',i*m); end.
n=36;
s='Юля';
begin
Writeln('Код ',n,' принадлежит символу "',Chr(n),'"');
Writeln('Длина слова "',s,'" в байтах равна ',Length(s));
Writeln('В битах это составляет ',8*Length(s))
end.
Результат
Код 36 принадлежит символу "$"
Длина слова "Юля" в байтах равна 3
В битах это составляет 24