1)
program prim;
uses crt;
var h,b,dev:integer;
begin
clrscr;
writeln("Введите общее кол-во детей");
readln(h);
writeln("Из них мальчиков");
readln(b);
dev:=h-b;
writeln("На день рождения пришло", dev ,"девочек.");
repeat until
keypressed;
end.
2)
program prim1;
uses crt;
var x:integer;
y:real;
begin
clrscr;
x:=3;
y:=(sqr(x)+2*x+3)/4;
writeln("Y равно: ", y);
repeat until
keypressed;
<span>end.</span>
111010001101 в двоичной - 3725 в десятичной
Переводим число 598 в 2-ричную систему счисления (делим на 2 с остатком):
598=2*299+0
299=2*149+1
149=2*74+1
74=2*37+0
37=2*18+1
18=2*9+0
9=2*4+1
4=2*2+0
2=2*1+0
1=2*0+1
598₁₀=1001010110₂
Число имеет 10 знаков, а надо 16, поэтому слева дополняем 6 нулями
0000001001010110
Поскольку число отрицательное, то в старшем (левом крайнем) разряде записываем 1. Получаем окончательное 16-разрядное компьютерное представление
1000001001010110
Ответ: 1000001001010110
Var a:array[1..10000] of integer;
n,i,max,k:integer;
begin
readln(n);
for i:=1 to n do read(a[i]);
max:=a[1]; k:=1;
for i:=2 to n do
begin
if a[i]>max
then begin max:=a[i]; k:=1; end
else if a[i]=max then k:=k+1;
end;
writeln('k = ',k);
end.
Пример:
<span>6
1 2 3 2 3 3
k = 3</span>