По разделам



Задача Series 12


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

Код (C/C++)

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

Код (Python)

import random

x = random.randrange(1,10)
print(x,end='; ')
k = 0
while x != 0:
    x = random.randrange(-5,6)
    print(x,end='; ')
    k += 1
    
print()
print("Amount:",k)
									

Код (Pascal)

program Series12;
var
  i,R:Integer;
begin
R:=1;
i:=0;
  while(R<>0) do
   begin
     i:=i+1;
     Write('Введите ',i,' число: ');
     Readln(R);
   end;
  Writeln('в наборе ',i-1,'чисел');
  readln;
end.
									




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

Комментарии

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