решите паскаль. очен6ь срочно надо((

решите паскаль. очен6ь срочно надо(( - Visavi.net https://visavi.net/ RSS - Visavi.net https://visavi.net/assets/img/images/logo_small.png RSS - Visavi.net https://visavi.net/ admin@visavi.net (admin) admin@visavi.net (admin) Wed, 02 Apr 2025 17:51:40 +0300 31.Лучше само задание напиши) https://visavi.net/topics/16566/293425 решите паскаль. очен6ь срочно надо(( finall2 Fri, 24 Dec 2010 01:00:01 +0300 Сообщения https://visavi.net/topics/16566/293425 народ ну помогите а то зачета не будет. через 8 часов сдавать уже(((( https://visavi.net/topics/16566/293366 решите паскаль. очен6ь срочно надо(( Символ Thu, 23 Dec 2010 22:43:36 +0300 Сообщения https://visavi.net/topics/16566/293366 Uses Crt; var a:Array[1..100] of integer; i,j,min,max,b,c,d,n: integer; begin Clrscr; randomize; n:=random(10); writeln('Введите массив:'); for i:=1 to n do begin write('a[',i,']='); readln(a[i]); end; for i:= 1 to n do begin min:=a[i]; max:=a[i]; for j:=i to n do begin if a[j]<min then begin min:=a[j]; b:=j; end; if a[j]>max then begin max:=a[j]; c:=j; end; end; d:=a[i]; a[i]:=a[b]; a[b]:=a[c]; a[c]:=d; end; writeln('Преобразованный массив:'); for i:=1 to n do write('a',i,'=', a[i],' '); end. переделайте кто нить задачу что бы работала нормально и массив вводился автоматически. https://visavi.net/topics/16566/292985 решите паскаль. очен6ь срочно надо(( Символ Thu, 23 Dec 2010 09:38:41 +0300 Сообщения https://visavi.net/topics/16566/292985 Ваш положительный голос за пользователя ForGotTen_HHTеаm успешно оставлен! В данный момент его авторитет: 51 Всего положительных голосов: 57 Всего отрицательных голосов: 6 https://visavi.net/topics/16566/292557 решите паскаль. очен6ь срочно надо(( Символ Wed, 22 Dec 2010 13:59:58 +0300 Сообщения https://visavi.net/topics/16566/292557 27.А фиг его знает. Я php самоучка,точно так-же как и в паскале =D По первому причем даж учебников не читал. while <pre class="prettyprint"> Program AfigEgoZnaeT; Uses crt; Var n,i,p:integer; Begin Clrscr; write('Введите натуральное число '); readln(n); p:=0; while i<n do begin i:=i+1; p:=p+(2*i-1)*2*i; end; writeln('Значение выражения равно ',p); end.</pre> Until <pre class="prettyprint"> Program AfigEgoZnaeT; Uses crt; Var n,i,p:integer; Begin Clrscr; write('Введите натуральное число '); readln(n); p:=0; i:=1; Repeat p:=p+(2*i-1)*2*i; i:=i+1; until i>n; writeln('Значение выражения равно ',p); end.</pre> 26.ЗЫ,я еще ни одного не получил (= https://visavi.net/topics/16566/292536 решите паскаль. очен6ь срочно надо(( finall2 Wed, 22 Dec 2010 13:15:41 +0300 Сообщения https://visavi.net/topics/16566/292536 23. ForGotTen_HHTеаm, а в паскале нету тернарного оператора? https://visavi.net/topics/16566/292507 решите паскаль. очен6ь срочно надо(( Владислав Wed, 22 Dec 2010 12:17:19 +0300 Сообщения https://visavi.net/topics/16566/292507 Uses crt; Var n,i,p:integer; Begin Clrscr; write('Введите натуральное число '); readln(n); p:=0; for i:=1 to n do p:=p+(2*i-1)*2*i; writeln('Значение выражения равно ',p); end. кто за плюс решит эту задачу через repeat-untel и whihe. до 8 утра надо сдать мне. выручайте еще https://visavi.net/topics/16566/292502 решите паскаль. очен6ь срочно надо(( Символ Wed, 22 Dec 2010 12:06:38 +0300 Сообщения https://visavi.net/topics/16566/292502 24, в том то и дело, что всё правильно <img src="https://visavi.net/uploads/stickers/smile.gif" alt="smile"> https://visavi.net/topics/16566/289761 решите паскаль. очен6ь срочно надо(( DeadLiftBaby Fri, 17 Dec 2010 10:51:11 +0300 Сообщения https://visavi.net/topics/16566/289761 сппасибор сем. щас поосмотрим че правильно что нет. тему пока не кройте https://visavi.net/topics/16566/289702 решите паскаль. очен6ь срочно надо(( Символ Fri, 17 Dec 2010 04:56:34 +0300 Сообщения https://visavi.net/topics/16566/289702 22.Если я правильно понял условие. <pre class="prettyprint"> program abc; var a,b,c:integer; begin read(a,b,c); a:=a+b; if a/2=c then write('C - среднее арифм.') else write('error'); end. </pre> https://visavi.net/topics/16566/289522 решите паскаль. очен6ь срочно надо(( finall2 Thu, 16 Dec 2010 21:06:37 +0300 Сообщения https://visavi.net/topics/16566/289522 фбибсю это a,b,c. punto switcer перевел раскладку(( https://visavi.net/topics/16566/289458 решите паскаль. очен6ь срочно надо(( Символ Thu, 16 Dec 2010 18:29:35 +0300 Сообщения https://visavi.net/topics/16566/289458 Что такое фбибсю ?) У нас Pascal в 10 был= ) https://visavi.net/topics/16566/289033 решите паскаль. очен6ь срочно надо(( Игорь Wed, 15 Dec 2010 14:33:39 +0300 Сообщения https://visavi.net/topics/16566/289033 это в следующем семестре будет. есть еще варианты решения? https://visavi.net/topics/16566/289027 решите паскаль. очен6ь срочно надо(( Символ Wed, 15 Dec 2010 14:28:12 +0300 Сообщения https://visavi.net/topics/16566/289027 Ну что такое числа фбибсю я не знаю <img src="https://visavi.net/uploads/stickers/E.gif" alt="E"> Вторая вот. <pre class="prettyprint"> program passwords; var en,go:string; begin go:='password'; {Пароль} while not (go=en) do readln(en); end. </pre> Можно еще извратиться так <pre class="prettyprint">program passwords; var str,password:string; var en,go:integer; begin str:='password'; { Пароль} en:=1; while go<en do begin inc(go,1); inc(en,1); readln(password); if str=password then exit; end; end.</pre> https://visavi.net/topics/16566/289016 решите паскаль. очен6ь срочно надо(( finall2 Wed, 15 Dec 2010 14:05:20 +0300 Сообщения https://visavi.net/topics/16566/289016 контрольная работа: 1) УСЛОВНЫЙ ОПЕРАТОР IF: даны числа фбибсю определить является ли число с среднем арифметическим чисел a и b/ 2)ЦИКЛЫ составить программу, которая запрашивает пароль (любое число) до тех пор, пока он не будет правильно введен. p.s. нужно с объяснениями т.е. что за что отвечает в программе. я в этом просто плохо шарю, да и по другим предметам долгов много., не успеваю все делать( https://visavi.net/topics/16566/288979 решите паскаль. очен6ь срочно надо(( Символ Wed, 15 Dec 2010 11:26:50 +0300 Сообщения https://visavi.net/topics/16566/288979