Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
snake0996
2 / 2 / 0
Регистрация: 13.04.2014
Сообщений: 31
1

Сформировать файл, содержащий натуральные числа

07.11.2015, 12:04. Просмотров 847. Ответов 1
Метки нет (Все метки)

Сформировать файл,содержащий натуральные числа.Дописать в файл после каждого нечетного числа сумму его цифр
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.11.2015, 12:04
Ответы с готовыми решениями:

Сформировать типизированный файл, содержащий сведения о марках автомобилей
Сформировать типизированный файл, содержащий сведения о марках автомобилей с...

Файл содержит числа, количество вводится с клавиатуры. Создать второй файл, содержащий квадраты этих чисел в обратном порядке
Задача : Файл содержит числа, количество вводится с клавиатуры. Создать второй...

Сформировать файл, содержащий информацию о 10 автолюбителей
13.12. Сформировать файл, содержащий информацию о 10 автолюбителей: фамилия,...

Сформировать файл, содержащий информацию о Н студентов
сформировать файл, содержащий информацию о Н студентов (фамилия, имя, дата...

Сформировать файл, содержащий список N наименований товаров
Сформировать файл,содержащий список N наименований товаров, содержащий...

1
vint-81
охотник
1009 / 533 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
07.11.2015, 14:43 2
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
uses crt;
const n=10;
var a,a1,i,j,endf:integer;
    f:file of integer;
function sc(x:integer):integer;
var s:integer;
begin
 s:=0;
 while x>0 do
  begin
   s:=s+x mod 10;
   x:=x div 10
  end;
 sc:=s
end;
begin
 clrscr;
 randomize;
 assign(f,'chisla.dat');
 rewrite(f);
 for i:=1 to n do write(f,random(1001));
 close(f);
 reset(f);
 writeln('сформированный файл:');
 for i:=1 to filesize(f)do begin read(f,a);write(a,' ') end;
 writeln;
 endf:=filesize(f);
 i:=0;
 while i<endf do
  begin
   seek(f,i);
   read(f,a);
   if odd(a)
    then
     begin
      j:=filesize(f);
      while j>i do
       begin
        seek(f,j-1);
        read(f,a1);
        seek(f,j);
        write(f,a1);
        dec(j);
       end;
      inc(i);inc(endf);
      seek(f,i);
      write(f,sc(a))
     end;
     inc(i)
  end;
 close(f);
 reset(f);
 writeln('результат:');
 for i:=1 to filesize(f) do begin read(f,a);write(a,' ') end;
 readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.11.2015, 14:43

даны натуральные числа m и n, получить все натуральные числа меньшие n, квадрат суммы которых равен m
даны натуральные числа m и n, получить все натуральные числа меньшие n, квадрат...

Текстовый файл содержит список фамилий и должность сотрудников. Сформировать текстовый файл, содержащий фамил
Текстовый файл содержит список фамилий и должность сотрудников. Сформировать...

Из элементов введенного массива сформировать новый массив, содержащий положительные числа
Написать программу ввода массива целых чисел из текстового файла. Файл содержит...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru