• дан массив a(1..10)integer. пощитать количество элементов которые делятся на 13 и сумму которых не делятся на 13

Ответы 1

  • var a:array[1..10] of integer;k,n,i:integer;begin k:=0; n:=0; for i:=1 to 10 do  read(a[i]); for i:=1 to 10 do  if a[i] mod 13=0   then    k:=k+1   else    n:=n+1; writeln(k,' ',n); // k-делятся на 13 n-не делятся на13 readlnend.
    • Автор:

      smudge3
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years