По разделам



Задача Proc 30


Описать функцию DigitN(K, N) целого типа, возвращающую N-ю цифру целого положительного числа K (цифры в числе нумеруются справа
налево). Если количество цифр в числе K меньше N, то функция возвращает −1. Для каждого из пяти данных целых положительных чисел K1,
K2, . . ., K5 вызвать функцию DigitN с параметром N, изменяющимся от 1
до 5.

Код (C/C++)

#include <stdio.h>

int digitn(int k, int n){
    int i=1;
    for(i=1; i<=n-1; i++) k/=10;
    if (k!=0) return k%10;
    else return -1;
}
 
int main(void)
{
    int i, k;
    for (i=1; i<=5; ++i){
        printf("K:");
        scanf("%i", &k);
        int i2;
        for (i2=1;i2<=5;++i2)
            printf("DigitN: %i\n",digitn(k,i2));        
    }
    return 0;
}

Код (Python)

import random
import math

def DigitN(K,N):
    q = K
    i = 0
    while q >= 1:
        r = q % 10
        q = int(q/10)
        i += 1
        if i == N:
            return r
    return -1

for i in range(0,10):
    x = random.randrange(1,10000)
    N = random.randrange(1,6)
    #print(x,end="; ")
    print(x,":",N,":",DigitN(x,N))
									

Код (Pascal)

program Proc30;
 
Function DigitN(K,N:Integer):Integer;
var i :integer;
begin
  for i:=1 to N-1 do
  begin
    K:=K div 10;
  end;
  if K<> 0 then DigitN:=K mod 10
  Else DigitN:=-1;
end;
 
var
  i,i2,K:Integer;
 
begin
 for i:=1 to 5 do
  begin
   Write('K :');
   Readln(K);
   for i2:=1 to 5 do
    begin
      Writeln(DigitN(K,i2));
    end;
  end;
end.
									




Proc. Абрамян
Proc 1 Просмотров: 14
Proc 2 Просмотров: 14
Proc 3 Просмотров: 12
Proc 4 Просмотров: 12
Proc 5 Просмотров: 15
Proc 6 Просмотров: 10
Proc 7 Просмотров: 14
Proc 8 Просмотров: 13
Proc 9 Просмотров: 13
Proc 10 Просмотров: 12
Proc 11 Просмотров: 14
Proc 12 Просмотров: 11
Proc 13 Просмотров: 12
Proc 14 Просмотров: 16
Proc 15 Просмотров: 13
Proc 16 Просмотров: 11
Proc 17 Просмотров: 24
Proc 18 Просмотров: 13
Proc 19 Просмотров: 14
Proc 20 Просмотров: 11
Proc 21 Просмотров: 13
Proc 22 Просмотров: 12
Proc 23 Просмотров: 11
Proc 24 Просмотров: 13
Proc 25 Просмотров: 10
Proc 26 Просмотров: 12
Proc 27 Просмотров: 17
Proc 28 Просмотров: 18
Proc 29 Просмотров: 24
Proc 30 Просмотров: 25
Proc 31 Просмотров: 13
Proc 32 Просмотров: 14
Proc 33 Просмотров: 12
Proc 34 Просмотров: 19
Proc 35 Просмотров: 10
Proc 36 Просмотров: 12
Proc 37 Просмотров: 12
Proc 38 Просмотров: 11
Proc 39 Просмотров: 13
Proc 40 Просмотров: 10
Proc 41 Просмотров: 14
Proc 42 Просмотров: 12
Proc 43 Просмотров: 12
Proc 44 Просмотров: 13
Proc 45 Просмотров: 15
Proc 46 Просмотров: 10
Proc 47 Просмотров: 12
Proc 48 Просмотров: 14
Proc 49 Просмотров: 11
Proc 50 Просмотров: 13
Proc 51 Просмотров: 20
Proc 52 Просмотров: 11
Proc 53 Просмотров: 13
Proc 54 Просмотров: 11
Proc 55 Просмотров: 14
Proc 56 Просмотров: 10
Proc 57 Просмотров: 11
Proc 58 Просмотров: 11
Proc 59 Просмотров: 9
Proc 60 Просмотров: 12

Комментарии

Чтобы написать комментарии вам нужно войти в систему или зарегистрироваться