помогите решить задачу на паскале

[лиса]

помогите,пожалуйста..никак не получаеться...

"В текстовом файле содержится последовательность действительных чисел. В заданной последовательности удалить члены, порядковые номера которых кратны пяти. Измененную последовательность переписать в результирующий файл. Имена исходного и результирующего файлов вводятся с клавиатуры"

срочно!
помогите девушке,
я новичок..нифига не получается

[Хыиуду]

Открываем на чтение файл fin, а на запись - fout, как это делается - описано в любом учебнике, конспекте, справочнике и на этом форуме сто раз уже

Код: Выделить всё

k:=0
while not eof(fin) do
begin
  readln(fin,x);
  inc(k);
  if k<5 then writeln(fout,x)
  else k:=0;
end;
close(fout);
close(fin)

[A eto ja]

Помогите решить задачку в программе С++
Задача: написать программу, которое данное число перепишит наоборот.
(напримет если аргумент 123, то результат должен быть 321)
Спасибо. Пишите на Laimakisa@gmail.com

[S@yler]

помагите решить задачу на паскале
Дана последовательность, содержащая от 1 до 30 слов, в каждом из которых от 1 до 5 прописных латинских букв; между соседними словами - запятая, за последним словом - точка. Напечатать:
те слова, перед которыми в последовательности находятся только меньшие (по алфавиту) слова, а за ними - только большие;

[dr.Jekill]

Ну, раз девушке!
Можно попробовать что-то подобное:

Код: Выделить всё

uses crt;
var f,g:file of integer;
i:byte;a:integer;
imia:string
begin
clrscr;
write('Vvedite imia vhodnogo faila: ');
кeadln(imia);
assign(f,imia);
reset(f);
write('Vvedite imia vyhodnogo faila: ');
readln(imia);
assign(g,imia);
rewrite(g);
i:=0;
for i:=1 to filesize(f) do
begin
if i mod 5 <> 0 then
begin
read(g,a);
end
else i:=i+1;
end;
end.

[Хыиуду]

Разбиваем строку на слова (раздел алгоритмы). Находим в последовательности минимум и максимум (там же). Их позиции обзываем imin и imax. Если imax-imin<2, то решения нет, в противном случае

Код: Выделить всё

for i:=imin+1 to imax-1 do
begin
  flag:=true;
  for j:=imin to i-1 do if A[j]>=A[i] then begin flag:=false;break;end;
  if flag then
  for j:=i+1 to imax do if A[j]<=A[i] then begin flag:=false;break;end;
  if flag then writeln(A[i]);
end;