Program q;
uses crt;
var a : integer;
begin
for a:=1 to 5 do
begin
write('Имя ');
end;
end.
Program func;
const
H = 0.2;
var
i, y, sum: real;
function Func(x:real):real;
begin
Func := x * Cos( (2 * x) );
end;
begin
i := -1;
sum := 0;
while i<=1 do
begin
y := Func(i);
if y>0 then
sum := sum + y;
i := i + H;
end;
end.
2*16^0+2*16^1+10*16^2=2594 (в 10-ой системе счисления)
Далее остатки от деления 2594 на 2 записываем в обратном порядке. Получаем число в 2-ой системе счисления: <span>101000100010
</span>
Ответ: <span>101000100010</span>
Я думаю, что правильным ответом будет : 1) А.... и 2) А и В
Var i,y,a,b: single;
begin
writeln('Выберите действие: 1)y=(a+b)^2; 2)y=a^2-b^2; 3)y=1/(a+b)');
read(i);
if i=1 then begin
writeln('Введите a и b');
read(a,b);
write('y=',(a+b)*(a+b));
end
else begin
if i=2 then begin
writeln('Введите a и b');
read(a,b);
write('y=',(a*a)-(b*b));
end
else begin
if i=3 then begin
writeln('Введите a и b');
read(a,b);
write('y=',1/(a+b));
end;
end;
end;
<span>end.</span>