/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal

Выпуск № 576
от 17.02.2008, 04:35

Вопрос № 122.626

Указатели Написать процедуру или функцию, которая находит среднее арифметическое непустого списка L.

Отправлен: 11.02.2008, 10:42 Вопрос задал: Jkalamari (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Николай Владимирович / Н.В. Здравствуйте, Jkalamari! Программа в приложении. Удачи! Приложение: type PElem = ^TElem; TElem = record value : integer; next : PElem; end; function summList(el:PElem):integer; var res : integer; begin res := 0; while el^.next <> nil do begin res := res + el^.value; el := el^.next; end; res := res + el^.value; summlist := res; end; procedure Add(var el : PElem; a : integer); var p : PElem; begin new(p); p^.next := el; p^.value := a; el := p; end; var el : PElem; a, count : integer; begin count := 0; repeat WriteLn('Input number (or "-1" to count):'); ReadLn(a); if a <> -1 then begin Add(el,a); count := count + 1; end; until a = -1; WriteLn('Summa: ', SummList(el)); WriteLn('Srednee: ',(SummList(el)/count):1:2);; ReadLn; end.

Ответ отправил: Николай Владимирович / Н.В. (статус: Профессионал) Россия, Москва WWW: nvsoft.org ICQ: 420720 ---- Ответ отправлен: 11.02.2008, 14:25

Вопрос № 122.629

Текстовые файлы. Написать программу, которая выделяет раздел операторов Паскаль - программы и записывает его в текстовый файл.

Отправлен: 11.02.2008, 10:46 Вопрос задал: Jkalamari (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Николай Владимирович / Н.В. Здравствуйте, Jkalamari! Программа в приложении. Предполагается, что в коде нет комментариев в виде зарезервированных слов "begin" и "end". Чтобы написать программу, которая разбирает все возможные случае (чтобы учитывала комментарии, части предложений, заключенные в кавычки и то что в названиях процедур могут быть эти слова), требуется очень много времени. Если такой необходимости нет, то приведенная программа будет отлично работать. Если хотите, могу дать модуль для Delphi, который я писал для подсветки синтаксиса pascal. Его, в принципе, не сложно переделать и он будет работать под обычным pascal-ем. Удачи! Приложение: function findlastbegin(filename : string):integer; var f : text; b : array[1..100] of integer; {lines in file with 'begin'} c : integer; line : integer; s : string; begin Assign(f,filename); Reset(f); line := 0; c := 0; while not eof(f) do begin ReadLn(f,s); line := line + 1; if pos(' begin ',' '+s+' ') > 0 then begin c := c + 1; b[c] := line; end; if pos(' case ',' '+s+' ') > 0 then begin c := c + 1; end; if pos(' end ',' '+s+' ') > 0 then c := c - 1; if pos(' end;',' '+s+' ') > 0 then c := c - 1; if pos(';end ',' '+s+' ') > 0 then c := c - 1; if pos(';end;',' '+s+' ') > 0 then c := c - 1; end; Close(f); findlastbegin := b[c]; end; var f, ff : text; s : string; i, l : integer; filename : string; begin filename := '120378_2.PAS'; l := findlastbegin(filename); Assign(f,filename); Reset(f); Assign(ff,'122629.txt'); Rewrite(ff); for i := 1 to l-1 do ReadLn(f,s); while pos('end.',s)=0 do begin ReadLn(f,s); WriteLn(ff,s); end; Close(f); Close(ff); readln; end.

Ответ отправил: Николай Владимирович / Н.В. (статус: Профессионал) Россия, Москва WWW: nvsoft.org ICQ: 420720 ---- Ответ отправлен: 11.02.2008, 13:19 Оценка за ответ: 5

Вопрос № 122.634

Всем привет! У меня такая задача: имеется к наборов по n чисел в каждом, надо посчитать количество наборов, в которых имеется число "2". Написал программу, но она неправильно считает - если "2" есть во всех наборах, то результат правильный, а если не во всех, то выдаётся "0". В приложении сама программа. Помогите разобраться. Спасибо. Приложение: uses crt; var a:array[1..10] of integer; i,j,k,n,p:integer; begin readln(k); readln(n); i:=0; j:=0; for j:=1 to k do begin for i:=1 to n do begin readln(a[i]); end; end; p:=0; for j:=1 to k do begin for i:=1 to n do begin if a[i]=2 then begin p:=p+1; break; end; end; end; writeln(p) end.

Отправлен: 11.02.2008, 11:24 Вопрос задал: Gene (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Gene! Вы обьявили только одномерный массив, из-за этого у Вас в памяти только последняя последовательность. 1)обьявить двухмерный массив: a:array[1..10,1..10] of integer; и добавить ссответствующую обработку; 2)или перенести проверку в цикл ввода: for j:=1 to k do begin for i:=1 to n do begin readln(a[i]); end; for i:=1 to n do begin if a[i]=2 then begin p:=p+1; break; end; end; end; Удачи! --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал) Украина, Киев Тел.: +380958380164 Адрес: Украина г.Киев ---- Ответ отправлен: 11.02.2008, 11:49 Оценка за ответ: 5

Отвечает: Николай Владимирович / Н.В. Здравствуйте, Gene! Проблема в том что Вы все введенные числа сохраняете в один массив и каждый следующий введенный набор записывается в массив вместо предыдущего. В конце вы проходите получившийся массив ровно столько раз, сколько наборов было введено, поэтому и получается правильный ответ. Достаточно только в последний раз ввести набор с числом "2" и тогда программа выдаст что во всех наборах есть "2". В приложении два варианта решения. Вариант 1. Создаете двумерный массив и каждый следующий набор записывается в следующую строку массива. В конце проходится каждая строка и проверяется наличие в ней числа 2. Вариант 2. Можно решить без массива: во время считывания проверять, введена ли двойка и если она введена первый раз в данном наборе, увеличивать кол-во наборов с двойкой на единицу. Удачи! Приложение: =========================== Вариант 1 =========================== uses crt; var a:array[1..10,1..10] of integer; i,j,k,n,p:integer; begin readln(k); readln(n); WriteLn; i:=0; j:=0; for j:=1 to k do begin for i:=1 to n do begin readln(a[j,i]); end; WriteLn; end; p:=0; for j:=1 to k do begin for i:=1 to n do begin if a[j,i]=2 then begin p:=p+1; break; end; end; end; writeln(p); ReadLn; end. =========================== Вариант 2 =========================== uses crt; var a,i,j,k,n,p:integer; increase : boolean; begin readln(k); readln(n); WriteLn; i := 0; j := 0; p := 0; for j:=1 to k do begin increase := true; for i:=1 to n do begin readln(a); if increase and (a=2) then begin p := p + 1; increase := false; end; end; WriteLn; end; writeln(p); ReadLn; end.

Ответ отправил: Николай Владимирович / Н.В. (статус: Профессионал) Россия, Москва WWW: nvsoft.org ICQ: 420720 ---- Ответ отправлен: 11.02.2008, 12:03 Оценка за ответ: 5 Комментарий оценки: Спасибо за подробный ответ.

Отвечает: Шемет Станіслав Васильович Здравствуйте, Gene! вот вам код Var m:array[1..50,1..50]of integer; i,j:integer; k,n:integer; Col:integer; begin readln(k,n); col:=0; for i:=1 to k do for j:=1 to n do readln(m[i,j]); for i:=1 to k do for j:=1 to n do if m[i,j]= 2 then begin inc(col); j:=n; end; writeln(n); readln end; --------- Любовь может все.

Ответ отправил: Шемет Станіслав Васильович (статус: 2-ой класс) Ответ отправлен: 11.02.2008, 15:34

Вопрос № 122.688

Вот вчерашняя задача,теперь уже с полным условием) Ввод и обработку необходимо реализовать в виде подпрограмм! Задание:Предметная область 'Сведения о печатающих ус-вах'.Данные предметной области (поля записи):1)Марка.2)Категория(принтер,плоттер).3)год выпуска.4)фирма производитель.5)количество цветов.6)разрешение.7)формат бумаги Програмам должна производить: -ввод данных с клавиатуры о нескольких печатных уст-вах(процедура) -подсчет количества уст-в ,атегория которых зарашивается с клавиатуры(функция) Заранее благодарен!

Отправлен: 11.02.2008, 16:18 Вопрос задал: AHAPX (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Николай Владимирович / Н.В. Здравствуйте, AHAPX! Программа в приложении. Удачи! Приложение: uses crt; type TDevice = record marka : string; category : string; year : integer; company : string; colors : byte; resolution : integer; format : string; end; const N = 10; var d : array[1..N] of TDevice; K : integer; {kol-vo ustrojstv} procedure ReadDev(var res : TDevice); begin WriteLn('Vvedite marku:'); ReadLn(res.marka); WriteLn('Vvedite kategoriyu:'); ReadLn(res.category); WriteLn('Vvedite god vypuska:'); ReadLn(res.year); WriteLn('Vvedite proizvoditelya:'); ReadLn(res.company); WriteLn('Vvedite kol-vo cvetov:'); ReadLn(res.colors); WriteLn('Vvedite razreshenie:'); ReadLn(res.resolution); WriteLn('Vvedite format bumagi:'); ReadLn(res.format); WriteLn; end; procedure PrintDev(dev : TDevice); begin WriteLn('Marka: ',dev.marka); WriteLn('Kategoriya: ', dev.category); WriteLn('God vypuska: ', dev.year); WriteLn('Proizvoditel: ', dev.company); WriteLn('Kol-vo cvetov: ', dev.colors); WriteLn('Razreshenie: ', dev.resolution); WriteLn('Format bumagi: ', dev.format); WriteLn; end; function CountDevByCategory(cat:string):integer; var res : integer; i : integer; begin res := 0; for i := 1 to K do if d[i].category = cat then res := res + 1; CountDevByCategory := res; end; var dev : TDevice; cat : string; cmd, i : integer; begin clrscr; WriteLn('Vvedite kol-vo ustrojstv:'); ReadLn(K); for i := 1 to K do ReadDev(d[i]); WriteLn; Repeat WriteLn('Input 1 to select category (to count devices);'); WriteLn('Input 2 to print devices;'); WriteLn('Input 3 to exit.'); Readln(cmd); case cmd of 1 : begin WriteLn('Vvedite kategoriyu:'); ReadLn(cat); WriteLn('Found: ', CountDevByCategory(cat),' devices'); end; 2 : begin for i := 1 to K do PrintDev(d[i]); end; 3 : exit; else WriteLn('Error: Unknown command. Please, Try again.'); end; Until cmd = 3; end.

Ответ отправил: Николай Владимирович / Н.В. (статус: Профессионал) Россия, Москва WWW: nvsoft.org ICQ: 420720 ---- Ответ отправлен: 11.02.2008, 17:08 Оценка за ответ: 5 Комментарий оценки: Спасибо большое!Помог!

Вопрос № 122.700

здраствуйте уважаемые специалисты!помогите пожалуйста написать программу на паскале. Заранее спасибо! Параметр-двумерный массив NxM(N и M-константы модуля).Действия: Приложение: -нахождение разности сумм элементов массивов;-обмен элементами 1ой строки 1ого и последней строки второго массивов;-обмен элементами 1 столбца второго массива и последнего столбца первого массива.-нахождение суммы элементов главных диагоналей 2ух массивов.

Отправлен: 11.02.2008, 18:19 Вопрос задал: AlexJan87 (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Николай Владимирович / Н.В. Здравствуйте, AlexJan87! Программа в приложении. Действий даже несколько больше, чем Вы писали :) Удачи! Приложение: uses crt; const N = 3; M = 5; type TMas = array[1..N, 1..M] of integer; var A, B : TMas; procedure FillMas(var Mas : TMas); var i,j : integer; begin for i := 1 to N do for j := 1 to M do Mas[i,j] := random(10); end; procedure writemas(mas : TMas); var i,j : integer; begin for i := 1 to N do begin for j := 1 to M do write(mas[i,j],' '); writeln; end; WriteLn; end; procedure change(var a,b:integer); var t : integer; begin t := a; a := b; b := t; end; function summ(mas : TMas) : integer; var i, j, sum : integer; begin sum := 0; for i := 1 to N do for j := 1 to M do sum := sum + mas[i, j]; summ := sum; end; var i, j, act, sum : integer; begin randomize; FillMas(A); FillMas(B); clrscr; writemas(A); writemas(B); repeat WriteLn; WriteLn('Select action: '); WriteLn('0 - clear screen, write arrays, write this help'); WriteLn('1 - raznost summ massivov'); WriteLn('2 - obmen elementov 1 stroki pervogo massiva i poslednej stroki vtorogo'); WriteLn('3 - obmen elementov 1 stolbca vtorogo massiva i poslednego stolbca pervogo'); WriteLn('4 - summa elementov glavnyh diagonalej dvuh massivov. Massivy dolzhny byt'' NxN'); WriteLn('5 - zapolnit massivy novymi znacheniyami'); WriteLn('6 - exit'); ReadLn(act); case act of 0 : begin clrscr; writemas(A); writemas(B); end; 1 : begin WriteLn(summ(a)); WriteLn(summ(b)); WriteLn('Raznost summ massivov: ', abs(summ(A)-summ(B))); end; 2 : begin for i := 1 to M do change(A[1,i], B[N,i]); writemas(A); writemas(B); end; 3 : begin for i := 1 to N do change(B[i,1], A[i,M]); writemas(A); writemas(B); end; 4 : begin sum := 0; for i := 1 to N do begin sum := sum + A[i,i]; sum := sum + B[i,i]; end; WriteLn('Summa glavnyh diagonalej: ',sum); end; 5 : begin clrscr; FillMas(A); FillMas(B); Writemas(A); WriteMas(B); end; 6 : exit; else WriteLn('Unknown command') end; WriteLn('____________________________________'); Until act = 6; end.

Ответ отправил: Николай Владимирович / Н.В. (статус: Профессионал) Россия, Москва WWW: nvsoft.org ICQ: 420720 ---- Ответ отправлен: 11.02.2008, 23:09 Оценка за ответ: 5 Комментарий оценки: БОЛЬШОЕ СПАСИБО НИКОЛАЙ ВЛАДИМИРОВИЧ!!!МНЕ БЫ И ТЕХ ДЕЙСТВИЙ ХВАТИЛО С ГОЛОВОЙ:) Я ВАМ ОЧЕНЬ СИЛЬНО БЛАГОДАРЕН!!!

Вопрос № 122.717

Элементами данной матрицы является натуральное число от 0 до 10. Определить количество одинаковых, рядом стоящих, пар элементов матрицы. Вывести на экран (Pascal: PrintF) найденое число и место расположения элемента.

Отправлен: 11.02.2008, 20:01 Вопрос задал: Наусов Вячеслав Сергеевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Наусов Вячеслав Сергеевич! Прогамма в приложении. Удачи! Приложение: program q122717; const n=50; var a:array[1..n]of integer; b,c:integer; begin {переустанавливаем генератор случайных чисел} randomize; {генерируем последовательность элементов массива} for b:=1 to n do a[b]:=random(1000)mod 11;{генерируем число и получаем остаток от деления} c:=0;{сбрасываем счетчик} {все делаем в цыкле} for b:=1 to n-1 do if a[b]=a[b+1] then{проверяем соседние элементы} begin{выводим результат сравнения} writeln('a[':4,b:2,']:=',a[b]:2,'a[':4,(b+1):2,']:=',a[b+1]:2); inc(c);{и увеличиваем счетчик} end; writeln('Count:',c:3);{выводим количество} readln; end. --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал) Украина, Киев Тел.: +380958380164 Адрес: Украина г.Киев ---- Ответ отправлен: 11.02.2008, 20:22

Вопрос № 122.720

Друг тут помощь попросил... Элементами данной матрицы являются натуральные чистла (0,10). Определить кол-во одинаковый рядомстоящих пар элементов матрицы. Вывести на экран месторасположения пар и их кол-во. Значения элементам массива (матрицы), где N и M вводятся с клавиатуры, присуждается с помощью функции RANDOM. Вывести на экран: -матрицу A(N,M) -вычисленный результат

Отправлен: 11.02.2008, 20:19 Вопрос задал: Romi4 (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Romi4! Программа в приложении. Удачи! Приложение: program q122717; const k=50; var a:array[1..k,1..k]of integer; b,c,d,n,m:integer; begin repeat{вводим с контролем} write('Enter N:');readln(n) until (n>1)and(n<=k); repeat{вводим сконтролем} write('Enter M:');readln(m); until (m>1)and(m<=k); {переустанавливаем генератор случайных чисел} randomize; {генерируем последовательность элементов массива} for b:=1 to n do for c:=1 to m do a[b,c]:=random(1000)mod 11;{генерируем число и получаем остаток от деления от 0 до 10} d:=0;{сбрасываем счетчик} {все делаем в цыкле} for b:=1 to n do begin for c:=1 to m-1 do begin write(a[b,c]:3);{выводим матрицу} if a[b,c]=a[b,c+1] then{проверяем соседние элементы} inc(d);{и увеличиваем счетчик} end; writeln(a[b,m]:3);{выводим последний элемент матрицы} end; writeln('Count:',d:5);{выводим количество соседей} readln; end. --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал) Украина, Киев Тел.: +380958380164 Адрес: Украина г.Киев ---- Ответ отправлен: 11.02.2008, 21:05 Оценка за ответ: 5

Вопрос № 122.722

Привет.Помогите пожалуйста!очень прошу.срочно надо решить простенькие задачки...хотя бы что то.но лучше бы все.будуочень прзнателен ---------- Case 1По введенному номеру месяца выдать сообщение «Зима», «Весна», «Лето» или «Осень». 2По введенному значению переменной выбора (квадрат, , прямоугольник, окружность) вычислить площадь квадрата, прямоугольника или окружности 4. Вводятся оценки за контрольные работы по физике и математике. Выведите на экран фразы: "МОЛОДЕЦ", если их сумма равна или больше 9, в противном случае выведите "ПОДТЯНИСЬ 5. Составьте блок-схему и программу для нахождения максимального из трех чисел, введенных с клавиатуры. 6. S = 1*3*5*…*19 7. Составьте блок-схему для нахождения суммы, произведения и среднего арифметического натуральных двузначных чисел, кратных 10. 8. Определите и выведите количество символов между M и N, которые являются номерами високосных годов. 9. Дан числовой ряд и некоторое число е. Считать сумму до тех пор, пока модуль очередного члена ряда больше или равен заданному е. Общий член ряда имеет вид: an = 1/(2n+5) 10. Амеба каждые 3 часа делится на 2 клетки. Через сколько часов она достигнет размера в 50 клеток?

Отправлен: 11.02.2008, 20:34 Вопрос задал: Vanss (статус: Посетитель) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: lyalya Здравствуйте, Vanss! 4. program d; var a,b:integer; begin writeln('введите оценки'); readln(a,b); if ((a+b)>9) then writeln('молодец') else writeln('подтянись'); readln; end. 5. program d; var a,b,c:integer; begin writeln('введите цифры'); readln(a,b,c); if (a>b) and (a>c) then writeln(a); if (b>a) and (b>c) then writeln(b); if (c>a) and (c>b) then writeln(c); readln; end. 6. program g; var s,i:integer; s:=1; for i:=1 to 19 do s:=s*i; writeln(s); readln; end.

Ответ отправила: lyalya (статус: 4-ый класс) Ответ отправлен: 11.02.2008, 21:40 Оценка за ответ: 5 Комментарий оценки: спасибо!

Отвечает: Николай Владимирович / Н.В. Здравствуйте, Vanss! В приложении несколько программ. Шестая программа отличается от ответа предыдущего эксперта используемым типом данных: максимальное значение для типа integer - 32767, а для extended- 1.1e4932. Использовать integer в данной задаче нельзя, т.к. значение 19! значительно больше 32767. Удачи! Приложение: ================================= Первая программа ================================= var a : integer; begin ReadLn(a); case a of 1,2,12 : WriteLn('winter'); 3..5 : WriteLn('spring'); 6..8 : WriteLn('summer'); 9..11 : WriteLn('autumn'); end; ReadLn; end. ================================= Вторая программа ================================= var a : integer; b, square : real; begin WriteLn('1 - kvadrat; 2 - pryamougolnik; 3 - okruzhnost'); ReadLn(a); case a of 1 : begin WriteLn('Vvedite dlinu storony: '); ReadLn(square); WriteLn('Ploshad: ', sqr(square)) end; 2 : begin WriteLn('Vvedite dlinu storony: '); ReadLn(square); WriteLn('Vvedite dlinu storony: '); ReadLn(b); WriteLn('Ploshad: ', square*b) end; 3 : begin WriteLn('Vvedite radius: '); ReadLn(b); WriteLn('Ploshad: ', pi*b*b/2); end; end; ReadLn; end. ================================= Четвертая программа ================================= var fiz, matem : integer; begin WriteLn('Fizika: '); ReadLn(fiz); WriteLn('Metematika: '); ReadLn(matem); if fiz+matem >= 9 then WriteLn('Molodec!') else WriteLn('podtyanis'); Readln; end. ================================= Шестая программа ================================= var res : extended; i : integer; begin res := 1; for i := 2 to 19 do res := res*i; WriteLn(res); Readln; end.

Ответ отправил: Николай Владимирович / Н.В. (статус: Профессионал) Россия, Москва WWW: nvsoft.org ICQ: 420720 ---- Ответ отправлен: 11.02.2008, 22:21 Оценка за ответ: 5

Отвечает: Шемет Станіслав Васильович Здравствуйте, Vanss! Var x:byte; begin readln (x); case x of 12,1..2:writeln('Зима'); 3..5:Writeln('Весна') 6..8:writeln('Лето') 9..11:writeln('Осень'); end; end. Var X,y:integer; begin readln(x,y); if x+y>=9 then writeln('МОЛОДЕЦ') else Wrietln('ПОДТЯНИСЬ'); readln end. Var i,j,x:integer; begin read(j); for i:=2 to 3 do begin read(x); if x>j then j:=x; end; Writeln(j); Readln; end. Var x:integer; S:longint; begin x:=1; S:=1; Repeat S:=S*x; inc(x,2); until x>=19; Wrietln(s); Readln; end. --------- Любовь может все.

Ответ отправил: Шемет Станіслав Васильович (статус: 2-ой класс) Ответ отправлен: 12.02.2008, 18:20

Отвечает: Зенченко Константин Николаевич Здравствуйте, Vanss! Задача №7 блок схема для всех подзадач выглядит одинаково, различия только в переменных Х: Ха - 1я- и 3-я подзадачи, Хв - только 2-я подзадача, Хс - только 3-я подзадача. Просмотреть её можно с помощью Редакторa блок-схем. Задача №9 и №10 в приложении. По задаче №10 - нужное количество клеток-время посчитать невозможно, т.к. на 15-ый час их будет только 32-е, а на 18-ый час их будет уже 64-е. ps:если в минифоруме вопроса уточните задачу №8 добавлю её решение. Приложение: program q122722; const e=0.00001; var n,m:longint; b:real; begin { задача №9} b:=0;{сбрасываем сумму} n:=0;{будем считать начиная с нулевого элемента} while (1/(2*n+5))>e do{проверка условия} begin b:=b+1/(2*n+5);{суммируем} inc(n);{переходим к очередному члену ряда} end; {выводим результат} writeln('Сумма:',b:12:6); readln; { задача №10} n:=1;{количество амеб} m:=0;{счетчик времени} while n<50 do{} begin n:=n*2;{увеличиваем кол-во амеб} m:=m+3;{увеличиваем счетчик времени} end; writeln('число амеб:',n,' нужное время:',m); readln; end. --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал) Украина, Киев Тел.: +380958380164 Адрес: Украина г.Киев ---- Ответ отправлен: 13.02.2008, 19:56

© 2001-2008, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале Версия системы: 4.70 от 17.01.2008
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru