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

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

program p_1; var i, n : integer; s : real; b : array [1..1000] of real; begin writeln('введите количество значений массива n'); readln(n); write('введите элементы массива а: '); for i: =1 to n do readln(a[i]);   writeln('введите элементы массива b'); for i: =1 to n do readln(b[i]); writeln('первоначальный массив b'); for i: =1 to n do writeln(b[i]); s: =0; for i: =1 to n do if a[i] mod 2 = 0 then s: =s+b[i]; writeln('сумма четных значений =', s); end.

var

  n,i,a: integer;

begin

  readln(n);

  for i: =1 to n do

  begin

  read(a);

  write(abs(a),' ');

end;

end.

s : = 0

for i : = 1 to n do

  if i mod 2 = 1 then

      s : = s - 1/2/n

  else

      s : = s + 1/2/n;

50*70*2 = 7000 байт вес одной страницы

2.8мб /1024 /1024 = 2`936`012,8 байт

2`936`012,8 байт /7000 байт = 419,4304 страниц