Восемь школьников, оставшихся в классе на перемене, были вызваны к директору. один из них разбил окно - id408924020230131 от Rostik559 31.01.2023 13:49

Question

Информатика: Восемь школьников, оставшихся в классе на перемене, были вызваны к директору. один из них разбил окно в кабинете. на вопрос директора, кто это делал, были получены следующие ответы: егор: «разбил андрей! » оля: «разбила света..». надя: «да, оля права». андрей: «ни вика, ни света этого не делали! » света: «вика разбила» миша: «это кто-то с улицы! » коля: «это либо вика, либо света». вика: «анрей не бил! » кто разбил окно, если известно, что из этих восьми высказываний истинно ровно три?

Rostik559 · Accepted Answer

Program Bally; var a:array[1..250] of string; N,l,max,x,i,b,p:integer; z,k:string; begin max:=0; readln(N); for i:=1 to N do readln(a[i]); z:=a[1]; l:=Pos( ,z); Delete(z,1,l); l:=Pos( ,z); Delete(z,1,l); Val(copy(z,1,Pos( ,z)-1),x,l); max:=max+x; Delete(z,1,Pos( ,z)); Val(copy(z,1,Pos( ,z)-1),x,l); max:=max+x; Delete(z,1,Pos( ,z)); Val(z,x,l); max:=max+x; for i:=2 to N do begin z:=a[i]; b:=0; l:=Pos( ,z); Delete(z,1,l); l:=Pos( ,z); Delete(z,1,l); Val(copy(z,1,Pos( ,z)-1),x,l); b:=b+x; Delete(z,1,Pos(...

MOGZ ответил