Придумайте ребус к словам - (телефон, стол, диск, записная книжка, компьютерная мышь, школа)

Телефон - тело и фон диск-дисней и бува к школа-кола (перед кола буква ш)

условие или истинно, если хотя бы одно высказывание истинно.

таблица истинности для условия или:

a или b     =     с1           1           11           0           10         1           10         0           0

приставка не означает истину, если высказывание ложно и ложь, если высказывание истинно (то есть она меняет истину и ложь)

его можно понимать как высказывание "первая буква не гласная"

анна

не (первая буква гласная) 0

последняя буква гласная   1

0 или 1 = 1

истина

максим

не (первая буква гласная)   1

последняя буква гласная   0

1 или 0 = 1

истина

татьяна

не (первая буква гласная) 1

последняя буква гласная   1

1 или 1 = 1

истина

егор

не (первая буква гласная) 0

последняя буква гласная   0

0 или 0 = 0

ложь

антон

не (первая буква гласная) 0

последняя буква гласная   0

0 или 0 = 0

ложь

Var k, j, sum: integer; n,i: longint; prev,cur, found : boolean; s: string; begin   read(n,k);     for i : = 2 to n do begin       s : = inttostr(i);       sum : = 0;       for j : = 1 to length(s) do           sum : = sum + strtoint(s[j]);       cur : = (sum mod k) = 0;       found : = found or (prev and cur);       if prev and cur then           writeln(i - 1,' ',i);                 prev : = cur;   end;   if not found then writeln('no'); end.