Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Tristall
0 / 0 / 0
Регистрация: 26.11.2014
Сообщений: 5
1

Выполнить действия с 256-значным числом

26.11.2014, 19:53. Просмотров 450. Ответов 6
Метки нет (Все метки)

Уважаемые форумчане, помогите решить задачу в Pascal
Условия задачи:

задано число, содержащее 255 цифр;
1.посчитайте количество цифр в числе;
2.подсчитать, сколько раз в число входит цифра 5;
3.содержит ли данное число 3 подряд идущие цифры - 7 (777);
4.вычислить сумму цифр числа;
5.является ли данное число кратным 9;
6.подсчитать кол-во чётных цифр;
7.вычислить сумму цифр, стоящих на нечётных позициях;
8.является ли данное число палиндромом?
9.получите новое число, удалив из заданного все цифры, кратные 3;
10.получите новое число заменив цифру 2 на цифру 3.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.11.2014, 19:53
Ответы с готовыми решениями:

Задача с 4-х значным числом
Приветствую помогите с данной задачей. Условие - Составьте программу которая учитывает все...

Выполнить действия над матрицами
Вычислить C=(A-B)*2A+2B, где: A= 5 -1 3 0 2 -1 -2 -1 0...

Выполнить действия над матрицами
Выполнить действия над матрицами:

Выполнить необходимые действия с типизированными файлами
(Файловый тип) В первой программе создать два файла. Первый файл заполнить 20 записями случайных...

Выполнить заданные действия с одномерным массивом
Для каждого задания нужна отдельная программа, желательно сделать все предельно простыми методами,...

6
Sergio Leone
2467 / 1112 / 579
Регистрация: 07.06.2014
Сообщений: 3,259
26.11.2014, 23:53 2
Цитата Сообщение от Tristall Посмотреть сообщение
задано число, содержащее 255 цифр;
1.посчитайте количество цифр в числе;
очевидно - 255.
0
Tristall
0 / 0 / 0
Регистрация: 26.11.2014
Сообщений: 5
27.11.2014, 02:19  [ТС] 3
Да наглядно и математически все задания просто выполняються, но мне нужна программа
0
Sergio Leone
2467 / 1112 / 579
Регистрация: 07.06.2014
Сообщений: 3,259
27.11.2014, 08:25 4
Цитата Сообщение от Tristall Посмотреть сообщение
все задания просто выполняються, но мне нужна программа
А я правильно понимаю, что ты писать программу не собираешься (ну, стандартно: не умешь, препод ничего не объяснил, времени нет, завал и т.п.)?
Надежда на "доброго" дядю, который всё за тебя напишет?
Ну тогда жди...


Обратиться в другой (платный раздел) не думал?
0
Tristall
0 / 0 / 0
Регистрация: 26.11.2014
Сообщений: 5
27.11.2014, 13:22  [ТС] 5
Вмое время когда я заканчивал школу в 2001 году, мы паскаль не учили а он был скажем так - лишь бы вы знали. Это сейчась взялись изучать.
0
Joy
Эксперт Pascal/Delphi
2175 / 1202 / 1438
Регистрация: 29.08.2014
Сообщений: 4,389
27.11.2014, 14:26 6
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
var
  a:array [0..1] of string;
  s,s1,s2,s3:string;
  n5, sum,nnodd,sumodd,i,j:integer;
begin
  a[1]:='Да ';a[0]:='Нет';
  readln(s);
  n5:=0;sum:=0;sumodd:=0;nnodd:=0;s1:='';s2:='';
  for i:=1 to length(s) do begin
    if s[i]='5' then inc(n5);
    j:=ord(s[i])-48;
    sum:=sum+j;
    if odd(i) then sumodd:=sumodd+j;
    if not odd(j) then inc(nnodd);
    if (j>0) and (j mod 3>0) then s1:=s1+s[i];
    if s[i]='2' then s2:=s2+'3' else s2:=s2+s[i];
  end;
  s3:='';
  for i:=length(s)downto 1 do s3:=s3+s[i];
writeln('1.посчитайте количество цифр в числе:',length(s));  
writeln('подсчитать, сколько раз в число входит цифра 5:',n5);
writeln('содержит ли данное число 3 подряд идущие цифры - 7 (777):',a[ord(pos('777',s)>0)]);
writeln('вычислить сумму цифр числа:',sum);
writeln('является ли данное число кратным 9:',a[ord(sum mod 9=0)]);;
writeln('подсчитать кол-во чётных цифр:',nnodd);
writeln('вычислить сумму цифр, стоящих на нечётных позициях:',sumodd);
writeln('является ли данное число палиндромом:',a[ord(s=s3)]); 
writeln('получите новое число, удалив из заданного все цифры, кратные 3:',s1);
writeln('получите новое число заменив цифру 2 на цифру 3:',s2);
end.
1
Tristall
0 / 0 / 0
Регистрация: 26.11.2014
Сообщений: 5
27.11.2014, 17:26  [ТС] 7
Благодарю, спасли!
0
27.11.2014, 17:26
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.11.2014, 17:26

Выполнить заданные действия с одномерными массивами
Контрольная 11 класс!с задачей! ПАСКАЛЬ 2. Найти ошибки в программе, которая удваивает чётные...

Определить четность числа и выполнить определенные действия
доброго времени суток, помогите пожалуйста, завтра экзамен((( Рассмотрим некоторое натуральное...

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


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

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

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