Как делать? ввести два целых числа x y определить что больше квадрат суммы или сумма квадратов, вывести ответы "квадрат суммы" или "сумма квадратов" или "значения равны". в паскале подробно.
Program kek; var z.q.x,y:integer; Begin readln (x); readln (y); z:= sqr(x)+2*x*y+sqr(b); q:=sqr(x)+sqr(y); If z>y then write ('квадрат суммы') else write ('квадрат разности'); End.
Program z1; var a,b,c,d:integer; procedure nod(x,y:integer;var nod2:integer); begin while x<>y do begin if x>y then begin x:=x-y end else begin y:=y-x end end; nod2:=xend; begin write('a=');readln(a); write('b=');readln(b); write('c=');readln(c); write('d=');readln(d); nod(a,b,b); nod(b,c,c); nod(c,d,d); writeln('nod=',d); readln end.
а) Ученик отвечает у доски:Источник -ученикПриемник: учитель и остальные ученики.Информационный канал: звуковое пространство или окружающая материальная среда, передающая звуковые волны.б) Боря читает статью в журнале: Источник - авторПриемник БоряИнф. Канал - печатное издание\журнал.в) Оля слушает песню по радио.Источник - радиоведущий/исполнитель композиции (если песня)...Приемник: ОляИнф. Канал: Радиоволны с радиотрансляторами и радиоприемниками.
г) Гена говорит с мамой по телефону.Если разговор взаимный, то Гена и его мама выступают поочередно источниками и приемниками.Инф канал: телефон. д) Водитель автобуса объявляет остановку.Источник: водительПриемник: пассажирыИнф канал: система оповещения в автобусе.
var z.q.x,y:integer;
Begin
readln (x);
readln (y);
z:= sqr(x)+2*x*y+sqr(b);
q:=sqr(x)+sqr(y);
If z>y then write ('квадрат суммы')
else write ('квадрат разности');
End.