Вот калькулятор, с выводом в конце программы всех введённых пользователем действий и чисел var a: integer; b,c: real; begin writeln('введите действие. 1 - сложение; 2 - вычитание; 3 - умножение; 4 - деление; 5 - корень квадратный; 0 - выход'); readln(a); while a < > 0 do begin
if a = 1 then begin writeln('выбрано сложение'); writeln('введите первое слагаемое'); readln(b); writeln('введите второе слагаемое'); readln(c); writeln('результат: ',b+c); end; if a = 2 then begin writeln('выбрано вычитание'); writeln('введите уменьшаемое'); readln(b);
writeln('введите вычитатель'); readln(c); writeln('результат: ',b-c); end; if a = 3 then begin writeln('выбрано умножение'); writeln('введите первый множитель'); readln(b); writeln('введите второй множитель'); readln(c); writeln('результат: ',b*c); end; if a = 4 then begin
writeln('выбрано деление'); writeln('введите делимое'); readln(b); writeln('введите делитель'); readln(c); if c = 0 then writeln ('делитель не должен быть равен нулю')else writeln('результат: ',b/c); end; if a = 5 then begin writeln('выбран квадратный корень'); writeln('введите
подкоренное выражение'); readln(b); if b < 0 then writeln ('подкоренное выражение должно быть неотрицательным')else writeln ('результат: ',sqrt(b)); end; writeln('введите действие. 1 - сложение; 2 - вычитание; 3 - умножение; 4 - деление; 5 - корень квадратный; 0 - выход'); readln(a);
end; end.

1}

Саша: «Я никогда не призывал к прогулу {ЛОЖЬ}, это была идея Коли {ЛОЖЬ}».

Коля: «Я никогда не предложил бы это первым{ПРАВДА}, во всем виноват Вова{ЛОЖЬ}».

Вова: «Эта идея пришла в голову Коле{ЛОЖЬ}. Я просто пошел за компанию{ПРАВДА}».

ОТвет: Зачинщик Саша.

2}

Допустим, первый болельщик ошибся насчёт Димы. Тогда:

Первый: «первым будет Дима{ЛОЖЬ}, а Миша будет вторым{ПРАВДА}»

Второй: «Катя займет четвертое место{ПРАВДА}, а второе место достанется Нине{ЛОЖЬ}»

Третий: «Катя займет третье место{ЛОЖЬ}, а на втором месте будет Дима{ПРАВДА}»

Это противоречит условию, потому что получается что второе место заняли сразу и Нина и Дима. Значит первый болельщик угадал, что Дима будет на 1-м месте:

Первый: «первым будет Дима{ПРАВДА}, а Миша будет вторым{ЛОЖЬ}»

Второй: «Катя займет четвертое место{ЛОЖЬ}, а второе место достанется Нине{ПРАВДА}»

Третий: «Катя займет третье место{ПРАВДА}, а на втором месте будет Дима{ЛОЖЬ}»

ОТвет: места распределились так: Дима 1-е, Нина 2-е, Катя 3-е, Миша 4-е

3}

Поскольку все назвали разные веса, то угадал только один. Значит двое других оба угадали материал. Это возможно только если гирька медная. Значит:

Алеша: «латунь{ЛОЖЬ}, 5 г{ПРАВДА}»

Витя: «медь{ПРАВДА}, 3 г{ЛОЖЬ}»

Игорь: «не латунь{ПРАВДА}, 4 г{ЛОЖЬ}».

ОТвет: медная гирька весом 5 г

Первую задачу можно решить с таблицы истинности, хотя она довольно простая и без неё.

Обозначим  логическими переменными высказывания:

С – «Саша - инициатор прогула»

К – «Коля - инициатор прогула»

В - «Вова - инициатор прогула»

Учтём, что инициатором был кто-то один из них, значит, в таблице истинности мы пишем по одной единице (истина) под предполагаемым инициатором прогула. Всего строк исходных значений будет 3, а не 8.

Каждый из них высказал 2 предложения. Мы их обозначим так:

Саша: НЕ(С), К

Коля: НЕ(К), В

Вова: К, НЕ(В)

Учитель почувствовал, что двое говорят правду наполовину, а один лжёт. Значит надо искать строку, в которой у одного из мальчиков будет  0 и 0, а двух других 0 и 1. Такая строка одна, в представленной таблице она последняя. Саша лжёт, а остальные говорят правду наполовину. Теперь посмотрим на первые три столбика. В этой строке 1 стоит под Сашиным именем. Значит, он и является инициатором прогула.