Запишем высказывания Джона, Брауна и Смита в виде таблице, где o - это предположительный вор со слов одного из участников процесса, а x - невиновный.
Д Б С
Д x o
Б x x
С o x
Рассмотрим варианты:
1. Джон сказал правду, тогда Смит - вор, тогда имеем
Джон 2 раза сказал правду
Браун 2 раза сказал правду
Смит 2 раза соврал.
Этот вариант не подходит под условие задачи.
2. Браун сказал правду, тогда очевидно снова Смит - вор, тогда
Джон 2 раза сказал правду
Браун 2 раза сказал правду
Смит 2 раза соврал.
Этот вариант тоже не подходит.
3. Смит сказал правду, тогда Браун - вор, тогда
Джон 2 раза соврал
Браун 1 раз соврал, один раз сказал правду.
Смит 2 раза сказал правду.
Вариант подходит.
Значит
Браун - вор и не может быть оправдан.
Джон - оболгал невиновного человека (Смита) и должен быть наказан за это.
Смит - не врал и не крал. Следовательно Смит должен быть оправдан.
2)
var a,b,c,x,y,z,s:real;
begin
writeln('Введите стоимость 1 кг конфет, печенья и яблок:');
readln(a,b,c);
writeln('Введите вес конфет, печенья и яблок:');
readln(x,y,z);
s:=a*x+b*y+c*z;
writeln('Стоимость всей покупки = ',s);
end.
Пример:
Введите стоимость 1 кг конфет, печенья и яблок:
215 150 60
Введите вес конфет, печенья и яблок:
0.5 2 3.5
Стоимость всей покупки = 617.5
3)
var b,s:real;
begin
write('b = ');
readln(b);
s:=b*30/1.5;
writeln('s = ',s);
end.
Пример:
b = 2
s = 40
Примеры:
1.Информация в учебниках
2.Произведения Художественной литературы
3.Тексты,описывающие алгоритмы
4.мысленный образ объекта
1)
var f: real;
x, i: integer;
begin
readln(x);
if (x < 0) then f := cos(x);
if ((x > 0) and (x <= 2)) then f := exp(ln(2) * x);
writeln('F(', x, ') = ', f);
<span>end.
2)
</span>var x, y, z, m: real;
<span>begin
readln(x, y, z);
m := x + y;
if (x < m) then m := x;
if (m > z) then m := z;
if (m > x * y * z) then m := x * y * z;
writeln(m);
<span>end.
</span>
Вот, проверил =)</span>
Язык....................................................
