На сайте в режиме реального времени публикуются решения контестных задач сервиса Codeforces.
Загружайте свои решения( здесь ) прямо на сайте. Подробнее. Жду ваших решений
 

По разделам

 

Задача Series 15


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

Код (C/C++)

#include <stdio.h>
int main(void)
{
    int k,r=1,num=0;
    printf("K:");
    scanf("%i", &k);
    while (r!=0){
        printf(">");
        scanf("%i", &r);
        if ((r>k) && (num==0)) num=r;
    }
    printf("%i\n",num);
 
    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
flag = True
while x != 0:
    if x > K and flag:
        flag = False
        N = k + 1
    k += 1
    x = random.randrange(-5,7)
    print(x,end='; ')
    
print()
print("Amount of numbers:",k)
print("Serial number of first greater than K:",N)
									

Код (Pascal)

program Series15;
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) and (num=0) and (R<>0)  then num:=i;
   end;
  Writeln(num);
end.
									




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

Комментарии

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