(x вводится пользователем)
var x,y:real;
begin
writeln ('Введите переменную x, y=x*2x');
readln (x);
y:=x*2*x;
writeln ('y = ',y);
<span>end.</span>
Program zadacha;
var a,b,c : integer;
begin
c:=1;
write('Введите число ==> ');
readln(a);
write('Введите его степень ==> ');
readln(b);
while b<>0 do begin
c:=a*c;
b:=b-1;
end;
write('степень числа ==> ',c);
<span>end.</span>
Program x;
var
s:string;
begin
readln(s);
if (s[1]=s[2])or(s[1]=s[3])or(s[2]=s[3]) then
writeln('есть') else writeln('нет')
end.
Программа на паскале <u>внизу</u>
1. 2^i=128
i=7
2. N=256 2^i=256 i=8 бит/1 пиксель (8*124*124)/2^13=15.06. Если нужно целое число, то 16.
3. 2*22*1000*8*124/2^23=15.6
4. 124 = 7C(16) = 1111100(2)
прямой код обратный дополнительный
01111100 10000011 10000011+1=10000100