program N53746544; var a,b:integer; begin writeln('Таблица умножения'); for a := 1 to 9 do begin for b := 1 to 9 do if a*b=1 then write('') {печатает 4 пробела} else write(a*b:4); writeln; end; readln; end.
Запишем высказывания Джона, Брауна и Смита в виде таблице, где o - это предположительный вор со слов одного из участников процесса, а x - невиновный.
Д Б С Д x o Б x x С o x
Рассмотрим варианты: 1. Джон сказал правду, тогда Смит - вор, тогда имеем Джон 2 раза сказал правду Браун 2 раза сказал правду Смит 2 раза соврал. Этот вариант не подходит под условие задачи.
2. Браун сказал правду, тогда очевидно снова Смит - вор, тогда Джон 2 раза сказал правду Браун 2 раза сказал правду Смит 2 раза соврал. Этот вариант тоже не подходит.
3. Смит сказал правду, тогда Браун - вор, тогда Джон 2 раза соврал Браун 1 раз соврал, один раз сказал правду. Смит 2 раза сказал правду. Вариант подходит.
Значит Браун - вор и не может быть оправдан. Джон - оболгал невиновного человека (Смита) и должен быть наказан за это. Смит - не врал и не крал. Следовательно Смит должен быть оправдан.
Информатика на данный момент является важнейшей частью жизни человека. Наш век - век компьютерных технологий. Все вычисления, всё то, что раньше делал человек исполняет машина. Заметьте, что это существенно облегчает нашу с вами жизнь. Не нужно делать гору больших вычислений. Просто положитесь на то, что компьютер сделает все за вас. Но не все так просто, как хотелось бы. Компьютер не обладает собственным мозгом, он просто исполняет список встроенных в него команд. А кто пишет эти команды? Правильно, сам человек. Именно человек пишет коды для компьютера. Без таких обширных человека, компьютера бы вовсе не существовало, он является плодом нашего величайшего ума. И чтобы продолжать совершенствовать программы и список команд различных электронных исполнителей, заставлять исполнять их все более и более сложные действия, чтобы облегчить свою жизнь еще больше, люди изучают такой предмет, как информатика.
program N53746544;
var a,b:integer;
begin
writeln('Таблица умножения');
for a := 1 to 9 do begin
for b := 1 to 9 do
if a*b=1 then write('') {печатает 4 пробела}
else write(a*b:4);
writeln;
end;
readln;
end.