Результати пошуку

  1. xZ_

    Turbo Pascal

    for (i=0;i<5;i++) { for (j=0;j<10;j++) if (A[i][j]<=0) break; if (j==10) break; } printf("%d",(i==5)?0:i); на си я так эту задачу делал, если что переделайте сами)
  2. xZ_

    Кому порешать задачи - пишите сюда

    да) но поверь многим это считается уж сильно заумным) самое сложное на первом курсе на мой взгляд будет указатели, разобраться с ними, ну вот и все)
  3. xZ_

    Кому порешать задачи - пишите сюда

    как оказалось именно этих нету, точнее я помню что я их делал, некоторые особенно, но где они хз, а скажу чесно наново писать все влом, лень и прочее, урывками еще куда ни шло б, где было б только основное
  4. xZ_

    Кому порешать задачи - пишите сюда

    год назад эти же задачи делали) если чтото найду дам, делал я их вроде немало)
  5. xZ_

    Кому порешать задачи - пишите сюда

    разве что натолкнуть на мысль, влом всю прогу писать 1 ... k=0; for (i=a;i<=b;i++) { i1=i; while (i1>0) { if (i1%2==0) break; i1/=10; } if (i1==0) k++; } printf("%d",k); ... 2 ... s=0; for (i=0;i<n;i+=2) if (a[i]>0) s+=a[i]; if (s>100) for (i=0;i<n;i++) a[i]=-a[i];
  6. xZ_

    Turbo Pascal

    {A[N] - массив, tmp - временная переменная} ... for i:=1 to N do begin write('A[',i,']='); readln(A[i]); end; ... for i:=1 to (N div2) do begin tmp=A[i]; A[i]=A[n-i+1]; A[n-i+1]=tmp; end; ...
  7. xZ_

    Turbo Pascal

    Re: Відповідь: Re: Відповідь: Turbo Pascal я не дочитал условие, извините.. ну все равно написать там 7 к примеру.. да и вобще условие реально написано то - найти єту матрицу, а вівод - то уже детали, за єто нифига не снижают оценку
  8. xZ_

    Turbo Pascal

    Re: Відповідь: Turbo Pascal а если писать write(a[i][j]:3); ?поскольку числа до 20, то максимум 2 знака, плюс еще один пробел - выделено 3 знака под каждое число, будет все красиво и аккуратно, нафик морочить голову с gotoxy?
  9. xZ_

    Turbo Pascal

    2 главные диагонали) стандартная задача)
  10. xZ_

    Turbo Pascal

    можно естественно, например читать как строку, сделать каким-либо алгоритмом чтоб оно подсчитывало выражение, но если этого нету в задании зачем морочить голову? если же есть и это нада реализовать то это другой вопрос
  11. xZ_

    Ищу книгу

    читай лс)
  12. xZ_

    Ищу книгу

    у меня есть эта книга, 4е издание за 2009 год на русском, но в электронном виде) если что обращайся
  13. xZ_

    Кому порешать задачи - пишите сюда

    Тут не в программировании а в задании.. может вовсе узнать знак гороскопа и тд?
  14. xZ_

    Кому порешать задачи - пишите сюда

    Помойму правильный вариант был бы - построить по этим трем точкам триугольник и найти круг, в какой триугольник вписан.. всего лишь формулы геометрии.. если что могу повспоминать
  15. xZ_

    Минаев

    Наши люди всегда недовольны властью.. Всегда ожидают сверх всего, сами выбирают, сами проклинают.. и так постоянно
  16. xZ_

    Turbo Pascal

    1. readln(a,b,c); p=(a+b+c)/2; s=sqrt(p*(p-a)*(p-b)*(p-c)); 2. readln(r); s=Pi*sqr(r); l=2*Pi*r; p.s. :))))))))
  17. xZ_

    Turbo Pascal

    "Скласти программу яка б дозволяла знаходити суму чисел кратних 3-м в діапозоні від 1 до N;" - логично что считать нада с первого числа кратного 3 a1=(m%3==0)?m:m+3-m%3; // 20%3 (в паскале 20 mod 3) =2, значит а1=20+3-2=21. первое число, с какого нада считать. an=n-n%3; // 100-100%3=100-1=99 -...
  18. xZ_

    Turbo Pascal

    моё мнение - чтоб не спорить советую всем кто просит помощи указывать какой тип задач учат, какую тему и тд.. ведь я почти уверен что учат обычные циклы, но так как не указано то неизвестно) "Но для общего типа задач(типа найти суму елементов кратных 2,3 на промежутке) он не совсем подойдет." -...
  19. xZ_

    Turbo Pascal

    теоретически можно так: допустим промежуток [m..n] .. void main() { .. scanf("%d%d",&m,&n); a1=(m%3==0)?m:m+3-m%3; an=n-n%3; S=(a1+an)*(a1-an+3)/6; printf("S=%d",S); .. } решение в 3 строчки буквально.. п.с. S=(a1+an)*(an-a1+3)/6;
Зверху