101
x
11
________
101
+
1010
=1111
2) 10|010|111 = 227 в восьмеричной СС и |1001|0111=97 в шестнадцатеричной СС
10|011=23 в восьмеричной СС и 1|0011=13 в шестнадцатеричной СС
Uses crt;
const Z=5;
var a:array [1..Z] of real;
x,k,n:integer;
begin
for x:=1 to Z do
begin
readln(a[x]);
if (x mod 2=1) and (a[x]>0) then inc(k);
if (x mod 2=1) and (a[x]<0) then inc(n);
end;
writeln('Положительных: ',k);
writeln('Отрицательных: ',n);
<span>end.</span>
n = int(input('Ведите время: '))
i = int(input('Введите день недели: '))
if 18 <= n <= 24 and 1 <= i <=5:
print('Время кодинга пришло')
else:
print('Время кодинга не пришло')
1)
Формула: S := a*a*sqrt(3)/4;
2)
read(a);
b:=a*a;
a:=b*b*b;
3) if a mod 2=0 then writeln('chetnoye') else writeln('nechetnoye);
if a<0 then wtiteln('polozhitelnoye) else writeln('otrizatelnoe');
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString('Введите строку:');
var n:=s.Matches('[A-Za-zА-Яа-яёЁ]').Count;
var m:=s.Length-n;
if m>n then Writeln('В строке букв меньше иных символов')
else
if m<n then Writeln('В строке букв больше иных символов')
else Writeln('В строке поровну букв и иных символов')
end.
<u>Примеры</u>
Введите строку: Это 12+32/16t/7+3.1415 тест
В строке букв меньше иных символов
Введите строку: И это 14+7 равно 21 тоже тест
В строке букв больше иных символов