Var n,m,p,k:longint;
Begin
read(n);
m:=n;
k:=0;
while m<>0 do begin
p:=m mod 10;
K:=K+1;
m:=m div 10;
writeln('k=',k);
end.
Первую задачу можно решить с таблицы истинности, хотя она довольно простая и без неё.
Обозначим логическими переменными высказывания:
С – «Саша - инициатор прогула»
К – «Коля - инициатор прогула»
В - «Вова - инициатор прогула»
Учтём, что инициатором был кто-то один из них, значит, в таблице истинности мы пишем по одной единице (истина) под предполагаемым инициатором прогула. Всего строк исходных значений будет 3, а не 8.
Каждый из них высказал 2 предложения. Мы их обозначим так:
Саша: НЕ(С), К
Коля: НЕ(К), В
Вова: К, НЕ(В)
Учитель почувствовал, что двое говорят правду наполовину, а один лжёт. Значит надо искать строку, в которой у одного из мальчиков будет 0 и 0, а двух других 0 и 1. Такая строка одна, в представленной таблице она последняя. Саша лжёт, а остальные говорят правду наполовину. Теперь посмотрим на первые три столбика. В этой строке 1 стоит под Сашиным именем. Значит, он и является инициатором прогула.
Объяснение:
Var n,m,p,k:longint;
Begin
read(n);
m:=n;
k:=0;
while m<>0 do begin
p:=m mod 10;
K:=K+1;
m:=m div 10;
end;
writeln('k=',k);
end.