Количество различных элементов — 2
Дан список. Посчитайте, сколько в нём различных элементов, не изменяя самого списка.
Входные данные
Вводится список чисел. Все числа списка находятся на одной строке. Все числа целые неотрицательные и не больше 1000
1000
Выходные данные
ВЫведите ответ на задачу.

program first; var i,a,b: integer; begin  cls;   read(a,b,i);   if a< 0 then write(sqr(a));

  if b< 0 then write(sqr(b));

  if i< 0 then write(sqr(i))end.

varslovo,simval: string; i,k: integer; begink: =0; write('vvedite slovo '); readln(slovo); write('vvedite simval '); readln(simval); for i: =1 to length(slovo) dobeginif slovo[i]=simval then k: =k+1; if slovo[i]=simval then writeln(i,' '); end; if k> =1 thenwriteln('yes vstre4aets9 ',k,' raz, na pozicii ',i)else writeln('no'); writeln; end.вот в одном решении

21 24 27 30 33 36 39 42 45 48 

вот на c:

#include < stdio.h> int main(void){  int i;   for(i = 50; i > = -50; i -= 10)  {    printf("%d\n", i);     }  printf("\n");   system("pause");   return 0; }