Var x,y,z:integer; n,m,k:word; begin readln(x,y,z); if x mod 5 =0 then n:=1; if x mod 5<>0 then n:=0; if y mod 5 = 0 then begin m:=1; m:=n m; end; if y mod 5 <> 0 then begin m:=0; m:=n m; end; if z mod 5 =0 then begin k:=1; k:=k m; end; if z mod 5 <> 0 then begin k:=0; k:=k m; end; writeln(k); end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
