СОСТАВИТЬ ТАБЛИЦУ ИСТИННОСТИ . Микула Селянович узнал, что Змей Горыныч побежден. Победить его мог либо - id1569504920211224 от НацуЛюси 24.12.2021 03:10

Question

Информатика: СОСТАВИТЬ ТАБЛИЦУ ИСТИННОСТИ . Микула Селянович узнал, что Змей Горыныч побежден. Победить его мог либо Илья Муромец, либо Алеша Попович, либо Добрыня Никитич. Вскоре Микуле Селяновичу сообщили, что Змея Горыныча победил не Илья Муромец, Змея Горыныча победил Алеша Попович. Спустя некоторое время оказалось, что одно из этих сообщений истинно, а другое ложно. Кто победил Змея Горыныча?

НацуЛюси · Accepted Answer

1. Современное решение, когда можно решить "в одну строку"

// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
Writeln('S=',ReadSeqInteger(3).Select(n->n.ToString
    .Where(d->Pos(d,'13579')>0)).SelectMany(c->c)
    .Select(c->c.ToDigit).Sum)
end.

Пример
252 337 105
S=24

2. А примерно вот так учат писать в школе - долго и длинно (да и не особо понятно)

var
m,i,j,s,d:integer;
begin
s:=0;
for i:=1 to 3 do begin
    Read(m);
    for j:=1 to 3 do begin
      d:=m mod 10;
      if d mod 2<>0 then s:=s+d;
      m:=m div 10
      end
    end;
Writeln('S=',s)
end.

MOGZ ответил