0 / 0 / 0
Регистрация: 26.04.2013
Сообщений: 5
1

3. С клавиатуры вводится длинное целое число, не менее 50 цифр. Вывести, на каких местах в данном числе расположена цифра «5». Записать полученные чис

01.06.2013, 00:26. Показов 2047. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
3. С клавиатуры вводится длинное целое число, не менее 50 цифр. Вывести, на каких местах в данном числе расположена цифра «5». Записать полученные числа в текстовый файл с именем S1.dat.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.06.2013, 00:26
Ответы с готовыми решениями:

С клавиатуры вводится длинное целое число, не менее 50 цифр. Найти сумму цифр кратных трем
С клавиатуры вводится длинное целое число, не менее 50 цифр. Найти сумму цифр кратных трем. Pascal

С клавиатуры вводится длинное целое число. Определить сумму четных цифр числа
. С клавиатуры вводится длинное целое число, не менее 50 цифр. Определить сумму четных цифр числа

Дано длинное целое число, содержащее не более 100 цифр Определить, есть ли в этом числе заданная цифра
Помогите решить 4. Дано длинное целое число, содержащее не более 100 цифр. Рассматривать цифры...

Дано целое число А. Определить, есть ли в данном числе цифра, которая равна цифре К
Помогите с решением пожалуйста 1. Дано целое число А. Определить, есть ли в данном числе цифра,...

1
3030 / 1916 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
01.06.2013, 00:35 2
Лучший ответ Сообщение было отмечено Максим555 как решение

Решение

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
Var
  s: String;
  i: Byte;
  f: Boolean;
  g: File of Byte;
BEGIN
Write('Введите число: ');
Readln(s);
f:=True;
For i:=1 to Length(s) do
If not (s[i] in ['0'..'9']) Then
f:=False;
If f Then
begin
  Assign(g,'s1.dat');
  Rewrite(g);
  For i:=1 to Length(s) do
  If s[i]='5' Then
  Write(g,i);
  Reset(g);
  If Pos('5',s)=0 Then
  Writeln('В числе нет цифры 5')
  Else
  begin
    Writeln('Файл записан. Содержимое файла: ');
    While not Eof(g) do
    begin
      Read(g,i);
      Write(i,' ');
    end;
  end;
  Close(g);
end
Else
Writeln('Это не целое число');
END.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.06.2013, 00:35
Помогаю со студенческими работами здесь

С клавиатуры вводится положительное натуральное число. Определить количество цифр в числе (сумму цифр)
С клавиатуры вводится положительное натуральное число. Определить количество цифр в числе (сумму...

С клавиатуры вводится длинное натуральное число N, в котором количество цифр – нечетное
С клавиатуры вводится длинное натуральное число N, в котором количество цифр – нечетное. Найти...

С клавиатуры вводится целое число любой разрядности. Определить количество цифр в нем и их сумму
С клавиатуры вводится целое число любой разрядности. Определить количество цифр в нем и их сумму...

С клавиатуры вводится N чисел. Те, у которых количество цифр четное число и 1ая цифра равна последней, сложить
С клавиатуры вводится N чисел. Те, у которых количество цифр четное число и 1ая цифра равна...

С клавиатуры вводится целое число. Исключить из его записи цифру 1, сохраняя порядок следования цифр
Например дано 2134, получить 234

Вставить в натуральное число заданную цифру после всех четных цифр в записи числа(цифра вводится с клавиатуры)
Дано натуральное число. Вставить в него заданную цифру после всех четных цифр в записи числа(цифра...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru