Var
i:integer;
begin
writeln('Введите символ: ');readln(i);
if (i>64) and (i<91) or (i>96) and (i<123) or (i>191) then
writeln('Это буква: ',chr(i))
else
writeln('Это символ: ',chr(i));
end.
1*2^4+1*2^3+1*2^1+1*2^0=16+8+2+1=27
Смотря если много компов то файлы локальные , lochost вроде и файлы которые выложили в сеть с главного клмпа
Var
i,count:integer;
h: array [1..20] of integer;
begin
count:=0;
writeln('Введите элементы');
for i:=1 to 20 do
read(h[i]);
for i:=1 to 20 do
if h[i]>0 then
count:=count+1;
writeln('Количество нулевых элементов ', count)
end.