Девочки написали контрольную работу по на 3 4 и 5 .маша сказала ,что она написала лучше оли но не на - id163823520220224 от dbuzoverova 24.02.2022 09:56

Question

Информатика: Девочки написали контрольную работу по на 3 4 и 5 .маша сказала ,что она написала лучше оли но не на 5 оля говорила что написала не хуже всех , а катя утверждает что она писала на 4 .как написали девочки контрольную работу по ,если одна девочка в своём утверждении была не права?

dbuzoverova · Accepted Answer

Const  names:array[1..7] of string=( пн , вт , ср , чт , пт , сб , вс ); var k,i,n0,np,nw,year,dw:integer; begin k:=0; n0:=6; //01.01.2000 - суббота for i:=2000 to 2100 do  begin   if (i mod 400=0)or(i mod 4=0)and(i mod 100 0)    then begin year:=366; dw:=31+29+31+3; end    else begin year:=365; dw:=31+28+31+3; end;   np:=(255+n0-1) mod 7+1;   nw:=(dw+n0-1) mod 7+1;   n0:=(year+n0-1) mod 7+1;   if np=nw then     begin writeln(i, - ,names[np]); k:=k+1; end;  end; writeln( k = ,k); end. Результат:...

MOGZ ответил