8 класс РЕШАТЬ ТАБЛИЦЕЙ ГДЕ 0-ЛОЖНОЕ, 1-ИСТИННОЕ
Ha уроке математики одна из девочек получила оценку «2». Когда
классный руководитель спросил у девочек, кто получил двойку, то
получил такие ответы.
Ира: Я не получала двойку. Таня не получала
двойку
Соня: Двойку получила Ира, я не получала двойку.
Таня: Двойку получила Соня. Ира двойку не
получала.
Классный руководитель понял, что одна девочка одна из девочек
дважды солгала. Другая девочка дважды сказала правду. А третья
девочка один раз сказала правду, а один раз солгала.
Кто из девочек получил двойку?

РЕШАТЬ ТАБЛИЦЕЙ, ГДЕ 0-ЛОЖНОЕ, 1-ИСТИННОЕ
8 класс ​

телефон      |         зонтик

наушник       |       спица

корпус         |       стержень

диск             |       купол

микрофон   |       рукоятка

провод         |       рубка

1. количество ядер процессора  2. частота процессора и частота системной шины (fsb) процессора  3. объем и количество кэш-памяти процессора (cpu)4. совпадение частоты системной шины cpu и материнской платы5. частота оперативной памяти (ram) и частота шины памяти материнской платы  6. объем оперативной памяти  7. используемый на материнской плате чипсет (intel, via, sis, nvidia, ati/amd)8. используемая графическая подсистема – встроенная в материнскую плату или дискретная  9. тип интерфейса винчестера (hdd) – параллельный ide или последовательные sata и sata-210. кэш винчестера

и это еще не все, можно продолжать. 

смотри скриншот                                    

1)

var a, b: integer;

begin readln(a, b); if (a div 10 + a mod 10) > (b div 10 + b mod 10) then writeln('сумма цифр ', a, ' больше') else writeln('сумма цифр ', b, ' больше'); end.

2)

var a: integer;

begin readln(a); writeln((a mod 10) * 10 + a div 10); end.

3)

var a: integer;

begin readln(a); if ((a div 100) = (a mod 100) div 10) or ((a div 100) = (a mod 10)) or ((a mod 100) div 10 = (a mod 10)) then writeln('есть 2 одинаковые цифры') else writeln('нет 2-х одинаковых цифр'); end.