Нужно выражения по законам логики.

1)          а: =b(13)+a(-2)*3=13+(-2*3)=13-6=7

2)          a) readln(а); readln(х);

б) writeln(z)

в)      var b,c : real; (чаще всего используется при нахождении вещественных чисел)

              var a: integer; (чаще всего используется при нахождении вещественных чисел)

г) if d = a(число, которому нужно прировнять, этот фрагмент цикла(если…,то ..иначе)) then d: =d+20; д) z : = x + y; ( : = это знак присвоения) 3)  program pr1; var w,s,b: integer; begin readln (s, b); w: = ((12*s) + (26*b)); writeln (w); end. 4) запишите на языке паскаль следующие условия: а) f > 105 ; б)   a< 184   ; в)   w< > 181;   г)   z> 0; д) z< =d; е)  (y*x)> =(d+w); ж)   (w-d)< 88; з) f> =1; 5. запишите на языке паскаль команду ветвления для решения следующей : а)  if   a< > 21 then a: =a+28 else a: =a-51; б)  if   a mod   2=0 then a: =a+5 else a: =a-12; 6. запишите на языке паскаль команду цикла для решения следующей : а)   program pr1; var j,p: integer; begin j: =1; p: =0; while j> =66 do begin p: = p*j; j: =j+1: writeln (‘произведение чисел = ‘, p); end. б)  

program pr1;

var n: integer;

begin

for n: =1 to 7 do

writeln('trud');

end.

К1 - количество орехов в первой корзине к2 - количество орехов во второй корзине к3 - количество орехов в третьей корзине дано: к2 = к1 - 38 (из первой корзины убрать 38 орехов, в ней останется столько орехов сколько их во второй корзине) к1+к2 = к1 + 54 (если добавить 54 ореха, то станет столько сколько в первой и во второй корзинах вместе) к3 = к1 - 27 (в третьей корзине на 27 орехов меньше чем в первой корзине.) и так, узнаем сколько в первой корзине. в уравнение к1+к2 = к1 + 54 подставим значение к2 = к1 - 38, чтобы иметь одну неизвестную. имеем уровнение к1+ (к1 - 38) = к1 + 54. перемещаем все на одну сторону к1+(к1-38)-к1-54=0 сокращаем к1 и -к1. (к1 - 38) - 54 = 0 к1 - 38 = 54 к1 = 92. т.е. в первой корзине 92 ореха. во второй к2 = 92 - 38 = 54 в третьей к3 = 92 - 27 = 65