var a:array[1..10] of integer; i,k:integer; begin for i:=1 to 10 do begin write(i,'-й элемент: '); readln(a[i]); end; k:=0 for i:=1 to 10 do if a[i] mod 3 = 0 and a[i] mod 5 = 0 then k:=k 1; {если кратно и 3, и 5 одновременно, то and. Если или 3, или 5, то or} writeln(k,' элементов'); end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
