Перейти к содержанию
СофтФорум - всё о компьютерах и не только

nadi_scool2

Новички
  • Постов

    11
  • Зарегистрирован

  • Посещение

Информация о nadi_scool2

Достижения nadi_scool2

0

Репутация

  1. привет! можете помочь с прогой, совсем мозгов не хватает сделать Написать программу — простейший ftp-клиент. Программа должна опрашивать все узлы указанной сети и сообщать о наличии в ней ftp-серверов с публичным доступом.
  2. Привет)помогите плиз програмку написать)) :rolleyes: Составить программу вычисления суммы трехзначных чисел, в десятичной записи которых нет нечетных цифр составить программу в паскале с помощью процедур.
  3. Тролль,мне больше всего понравилось что компьютер дурак :blush2: :D иногда эт и вправду так :D
  4. Тролль,и все??))а я чет ваще тормозила))) :)
  5. Привет)эт я снова,помогите плиз,к зачету надо Дано натуральное число N.Вычислить произведение первых N сомножителей:р=(2/3)*(4/5)*(6/7)*...*(2N/(2N+1)) На Паскале с циклом for,где в скобках там дроби,незнала прост как написать)))
  6. Тролль,спасибо тебе огромное :bye1: ))))оч помогло))даж не знаю как благодарить за такое подробное объяснение))) :bye1:
  7. Тролль я по другому немного написала,ток у меня не идет,она скомпилировалась,числа вводятся,но ответ не считается,ставит курсор на процедуру для НОК(я там выделила))че не правильно? :g: program nok3; procedure NOD1(A,B,C:integer;var NOD,D:integer); begin while (a<>0) and (b<>0) do if a>=b then a:=a mod b else b:= b mod a; D:=a+b; while (D<>0) and (C<>0) do if D>=C then D:=D mod C else C:=C mod D; NOD:=D+C; end; procedure NOK1(A,B,C,NOD,D:integer;var NOK,K:integer); begin K:=a*b div D; NOK:=K*C div NOD end; Var NOD,NOK,D,K,A,B,C:integer; begin write('vvedite tri 4isla:'); readln(A,B,C); NOD1(A,B,C,NOD,D); writeln(NOD); NOK1(A,B,C,D,NOK,K,NOD); writeln(NOK); end.
  8. привет)помогите плиз програмку написать на Pascal'e c процедурой:Составить программу нахождения наименьшего общего кратного 3 натуральных чисел))) :thumbup:
×
×
  • Создать...