Код есть, но там не то нужно получить. Можно переписать его
uses crt;
type complex=record
re,im:real;
end;
{вывод результата}
procedure Vyvod(var f:complex);
begin
if f.im<0 then writeln(f.re:9:5,' -',-f.im:0:5,'i')
else writeln(f.re:5:2,' +',f.im:0:2,'i');
end;
{умножение комплексного на целое}
procedure UmCh(f:complex;var z:complex;k:byte);
begin
z.re:=kf.re;
z.im:=kf.im;
end;
{деление комплексного на целое}
procedure DelCh(f:complex;var z:complex;k:byte);
begin
z.re:=f.re/k;
z.im:=f.im/k;
end;
{вычитание из комплексного целого}
procedure VchCh(var z:complex;k:byte);
begin
z.re:=z.re-k;
end;
{сложение комплексных}
procedure Summa(var f:complex;g:complex);
begin
f.re:=f.re+g.re;
f.im:=f.im+g.im;
end;
{вычитание комплексных}
procedure Razn(var f:complex;g:complex);
begin
f.re:=f.re-g.re;
f.im:=f.im-g.im;
end;
{умножение комплексных}
procedure Proizvedenie(f,g:complex;var z:complex);
begin
z.re:=f.reg.re-f.img.im;
z.im:=g.ref.im+f.reg.im;
end;

var u,v,w,u1,u2,w1,r:complex;
begin
clrscr;
writeln('Vvedite deist. i mnim. chasti u:');
readln(u.re,u.im);
writeln('Vvedite deist. i mnim. chasti v:');
readln(v.re,v.im);
writeln('Vvedite deist. i mnim. chasti w:');
readln(w.re,w.im);
UmCh(u,u1,3);
DelCh(w,w1,2);
Proizvedenie(u1,w1,r);
Summa(r,w);
Razn(r,u2);
UmCh(u,u2,2);
Summa(r,u2);
VchCh(r,7);
write('2u+(3u*w/2+w-u)-7=');
Vyvod(r);
readln
end.

128

180

Посмотреть ответы 1

Ответы на вопрос:

nastya05112

Информатика

4,6(7 оценок)

N=8 k=60 i=60*8=480бит ответ 480 бит

Задай свой вопрос

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.