По разделам



Задача Series 16


Дано целое число K и набор ненулевых целых чисел; признак
его завершения — число 0. Вывести номер последнего числа в наборе,
большего K. Если таких чисел нет, то вывести 0.

Код (C/C++)

#include <bits/stdc++.h>

using namespace std;

int main()
{
    int k, j = 0, i = 0, n;
    cin >> k;
    cin >> n;
    while(n){
        if(n > k)
            j = i + 1;
        cin >> n;
        ++i;
    }
    cout << j;
    return 0;
}

Код (Python)

import random

K = random.randrange(2,8)
print("K = ",K)

x = random.randrange(1,5)
print(x,end='; ')
k = 0
N = 0
while x != 0:
    if x > K:
        N = k + 1
    k += 1
    x = random.randrange(-5,7)
    print(x,end='; ')
    
print()
print("Amount of numbers:",k)
print("Serial number of last greater than K:",N)
									

Код (Pascal)

program Series16;
var
 num,i,R,K:Integer;
begin
write('Введите K : ');
readln(K);
R:=1;
i:=0;
num:=0;
 while(R<>0) do
 begin
 i:=i+1;
 write('Введите ',i,' число из набора :');
 Readln(R);
 if R>K then num:=i;
 end;
 Writeln(num);
end.
									

Дополнительно

k = int(input())
a = int(input())
i = 1
idx = 0
while a != 0:
    if a > k:
        idx = i 
    a = int(input())
    i += 1 # ДОПУСТИМ, ЧТО ИНДЕКСАЦИЯ НАЧИНАЕТСЯ С 1
print(idx)
									



Series. Абрамян
Series 1 Просмотров: 14
Series 2 Просмотров: 7
Series 3 Просмотров: 12
Series 4 Просмотров: 17
Series 5 Просмотров: 10
Series 6 Просмотров: 7
Series 7 Просмотров: 8
Series 8 Просмотров: 8
Series 9 Просмотров: 10
Series 10 Просмотров: 14
Series 11 Просмотров: 9
Series 12 Просмотров: 8
Series 13 Просмотров: 11
Series 14 Просмотров: 8
Series 15 Просмотров: 10
Series 16 Просмотров: 17
Series 17 Просмотров: 18
Series 18 Просмотров: 9
Series 19 Просмотров: 15
Series 20 Просмотров: 7
Series 21 Просмотров: 10
Series 22 Просмотров: 12
Series 23 Просмотров: 10
Series 24 Просмотров: 11
Series 25 Просмотров: 18
Series 26 Просмотров: 11
Series 27 Просмотров: 10
Series 28 Просмотров: 10
Series 29 Просмотров: 6
Series 30 Просмотров: 5
Series 31 Просмотров: 8
Series 32 Просмотров: 7
Series 33 Просмотров: 7
Series 34 Просмотров: 13
Series 35 Просмотров: 9
Series 36 Просмотров: 6
Series 37 Просмотров: 7
Series 38 Просмотров: 9
Series 39 Просмотров: 7
Series 40 Просмотров: 7

Комментарии

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