===== PascalABc.NET ======
begin
for var i := 0 to 10 do
Writeln(i:2, 3*i*i-4*i+2:6)
end.
var a, b, c, x: integer;
begin
write('Введите A: ');
readln(a);
write('Введите B: ');
readln(b);
write('Введите C: ');
readln(c);
if a > b then
x:=a
else
x:=b;
if x > c then
writeln('Наибольшее число: ', x)
else
writeln('Наибольшее число: ', c);
end.
А)<span> 1001110100</span><span>2
б)</span><span> 11011110
в)</span><span>1000001000
г)</span><span> 29F1
д)</span><span>8568
е)</span><span> FF89
2.
11;738;8710;11516
</span>
Program pr;
var x:integer;y:real;
begin
write('X=');
readln(x);
y:=cos(2*x)+sin(x);
writeln('y=',y);
end.
Ответ:
вычисление A в степени n
Объяснение:
выполняется цикл n раз
в теле цикла число A умножается само на себя