Program n1;
var i: integer;
begin
for i:=45 to 180 do if(i mod 8=0) then writeln(i);
end.
Static void Main(string[] args)
{
StringBuilder str = new StringBuilder();
Console.Write("Введите строку, ввод завершится по точке: ");
char input = Console.ReadKey(true).KeyChar;
if (char.IsLetterOrDigit(input) || char.IsSeparator(input)) Console.Write(input);
while(input != '.')
{
str.Append(input);
input = Console.ReadKey(true).KeyChar;
if (char.IsLetterOrDigit(input) || char.IsSeparator(input)) Console.Write(input);
}
Console.WriteLine();
string resStr = str.ToString();
int a = resStr.Count(p => p == 'а');
int b = resStr.Count(p => p == 'б');
if (a > b)
Console.WriteLine("В строке чаще встречается буква а");
else if (a < b)
Console.WriteLine("В строке чаще встречается буква б");
else
Console.WriteLine("В строке букв а и б равное количество");
Console.ReadKey();
}
14 в двоичной системе будет 1100
101<span> + 1</span>100<span> = 10</span><span>001</span>
Const N = 10;
var A: array[1..10] of integer;
i, len: integer;
s: string;
begin
write('Введите слово: ');
readln(s);
len := length(s);
for i := 1 to len do begin
A[ i ] := ord(s[i]);
writeln('Код символа ', s[ i ], ': ', A[ i ]);
end;
<span>end.</span>
