Var a,b,x,y:integer;
begin
writeln('Введите числа :');
readln(a,b);
x:=sqr(a+b);
y:=sqr(a)+sqr(b);
writeln('Квадрат суммы = ',x);
writeln('Cуммы квадратов = ',y);
<span>end.</span>
110010(2) = (0+2^1+2^4+2^5)(10) = 2+16+32 = 50(10)
1001(2) = (1+2^3)(10) = 9(10)
Всего 59
1)
var
mas: array [1..5] of integer;
i:integer;
begin
for i:=1 to 5 do
read(mas[i]);
for i:=1 to 5 do begin
mas[i]:=mas[i]-20;
write(mas[i],' ');
end;
end.
2)
var
mas: array [1..8] of real;
i:integer;
begin
for i:=1 to 8 do
read(mas[i]);
for i:=1 to 8 do begin
if i mod 2 = 0 then
write(mas[i]-1,' ')
else
write(mas[i]+1,' ')
end;
end.
Надо выбрать определенную фигуру или просто начертить прямую линию..и подрисовать две палочки я так делаюю попробуй