Уквітковому місті жили коротунчики. серед них був один, який завжди казав правду, а другий-неправду. оного разу між ними відбулася розмова: - ми обоє з тобою брехуни, - сказав перший. -лише ти брехун, відповів на це другий. хто зних завжди каже правду? поясни свою відповідь.

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

          a               b                       c                   d 1       4               8                     =a2*b1         5 2     =a1+d1   =c2/b1         =c1-d2         =a1*a1           a             b                   c                   d 1       4             8                   72                   5     2       9             7                  56                 16   ответ: 7

Type mas=array[1..93] of real; var i,w: byte; season: mas; t: real; function temp(ses: mas; d: byte): real; var i: byte; s: real; begin s: =0; for i: =1 to d do  s: =s+ses[i]; temp: =s; end; begin repeat writeln('год високосный? 1-да 0-нет'); read(w); if (w< > 1) and (w< > 0) then w: =2; until w< > 2; writeln('введите зимние  температуры за каждый день: '); for i: =1 to 90+w do  readln(season[i]); t: =temp(season,90+w); writeln('среднее арифметическое зимних температур:   ',t/(90+w): 5: 3); writeln('введите весенние температуры за каждый день: '); for i: =1 to 92 do  readln(season[i]); t: =temp(season,92); writeln('среднее арифметическое весенних температур:   ',t/92: 5: 3); writeln('введите летние температуры за каждый день: '); for i: =1 to 92 do  readln(season[i]); t: =temp(season,92); writeln('среднее арифметическое летних температур:   ',t/92: 5: 3); writeln('введите осенние температуры за каждый день: '); for i: =1 to 92 do  readln(season[i]); t: =temp(season,91); writeln('среднее арифметическое осенних температур: ',t/91: 5: 3); end.