По разделам



Задача Series 35


Дано целое число K, а также K наборов ненулевых целых чисел.
Признаком завершения каждого набора является число 0. Для каждого набора вывести количество его элементов. Вывести также общее количество
элементов во всех наборах.

Код (C/C++)

#include <stdio.h>
int main(void)
{
    int k;
    printf("K:");
    scanf("%i", &k);
 
    int ki, a,stemp=-1, s=0;
    for (ki=1; ki<=k; ++ki, stemp=-1, a=1){
       while(a!=0){
            printf(">");
            scanf("%i", &a);
            ++stemp;
        }
    printf("%i\n",stemp);
     s+=stemp;
    }
    printf("%i\n",s);
    return 0;
}

Код (Python)

import random

K = random.randrange(1,7)

print("K = ",K)

K_Total = 0
for i in range(0,K):
    K_Set = 0
    x = random.randrange(1,4)
    print(x,end="; ")
    while x != 0:
        K_Set += 1
        x = random.randrange(0,4)
        print(x,end="; ")
    K_Total += K_Set
    print()
    print("Count of numbers: ",K_Set)
    print()
print("Total Count of numbers: ",K_Total)
									

Код (Pascal)

program series35;
uses
  SysUtils;
var
  K,Ki,A,Count,CountK:Integer;
begin
 Write('K: ');
 Readln(K);
 for Ki:=1 to K do
  begin
    CountK:=0;
    repeat
     CountK:=CountK+1;
     write('Введите ',CountK,' число из ',Ki ,' набора:');
     Readln(A);
    until A=0;
    CountK:=CountK-1;
    Writeln(CountK);
    Count:=Count+CountK;
  end;
   Writeln(Count);
   Readln;
end.
									




Series. Абрамян
Series 1 Просмотров: 18
Series 2 Просмотров: 14
Series 3 Просмотров: 18
Series 4 Просмотров: 25
Series 5 Просмотров: 19
Series 6 Просмотров: 12
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 Просмотров: 26
Series 17 Просмотров: 20
Series 18 Просмотров: 15
Series 19 Просмотров: 18
Series 20 Просмотров: 13
Series 21 Просмотров: 14
Series 22 Просмотров: 13
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 Просмотров: 12
Series 36 Просмотров: 7
Series 37 Просмотров: 11
Series 38 Просмотров: 16
Series 39 Просмотров: 10
Series 40 Просмотров: 16

Комментарии

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