Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Tristall
0 / 0 / 0
Регистрация: 26.11.2014
Сообщений: 5
#1

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

26.11.2014, 19:53. Просмотров 431. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Выполнить действия с 256-значным числом (Pascal ABC):

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

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

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

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

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

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

6
Sergio Leone
2461 / 1106 / 403
Регистрация: 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
2461 / 1106 / 403
Регистрация: 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
2111 / 1151 / 871
Регистрация: 29.08.2014
Сообщений: 4,204
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
Привет! Вот еще темы с ответами:

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

Ввести арифметическое выражение с простыми дробями и выполнить действия - Pascal ABC
unit fraction; interface type natur = 1..high(longint); frac = record p : longint; {числитель дроби} q : natur...

Выбрать тип арифметического действия, выполнить и вывести результат - Pascal ABC
арифметические выражение предназначенные числам нумеруются так 1-добавить, 2-отнять, 3-умножить, 4-разделить. даны номера чисел и...

Выполнить процедурную декомпозицию программного комплекса, выполняющего действия с матрицей - Pascal
Помогите найти ошибки. Выполнить процедурную декомпозицию программного комплекса, выполняющего действия с матрицей: 1.Ввод 2.Вывод ...


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

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

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