Валя и вера собрались варить варенье из а кг смородины. по рецепту на 2 кг ягод нужно 3 кг сахара. валя сказала, что им потребуется с кг сахара, а вера - что р кг. кто из них прав?

программа считывает a, c, p.учитывая, что с и р могут быть дробными числами и то, что обе девушки могут быть не правы.язык программирования: паскаль.vara, c, p: real; beginreadln (a); readln (c);   readln (p); if c : = a / 2 * 3 thenwriteln ('валя права'); if p : = a / 2 * 3 thenwriteln ('вера права');     if (c < > a / 2 * 3) and  (p < > a / 2 * 3)  thenwriteln ('обе не правы');   end.

Var a: array[1..1000]of integer; b: array[1..1000]of integer; i,n,summ: integer; begin writeln('введите кол-во цифр'); readln(n); writeln('введите цифры'); for i: =1 to n do readln(a[i]); for i: =1 to n do begin if (a[i]> =10)and (a[i]< 100) then b[i]: =a[i]; end; for i: =1 to n do begin if (a[i]> =100) and (a[i]< 1000) and (a[i] mod 4=0) then summ: =summ+a[i]; end; for i: =1 to n do begin if b[i]> 0 then write(b[i],' '); end; writeln; write('сумма 3-х значных чисел кратных 4=',summ); end.

Uses graphabc;   procedure draw(x, y, l, u : real; t : integer); procedure draw2(var x, y: real; l, u : real; t : integer); begin draw(x, y, l, u, t); x : = x + l*cos(u); y : = y - l*sin(u); end;   begin if t > 0 then beginl : = l/3; draw2(x, y, l, u, t-1); draw2(x, y, l, u+pi/3, t-1); draw2(x, y, l, u-pi/3, t-1); draw2(x, y, l, u, t-1); end else line(round(x), round(y), round(x+cos(u)*l), round(y-sin(u)*l))end; begin setwindowsize(425,500); setwindowcaption('фракталы: снежинка коха'); draw(10, 354, 400, pi/3, 4); draw(410, 354, 400, pi, 4); draw(210, 8, 400, -pi/3, 4); end.