Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.76/29: Рейтинг темы: голосов - 29, средняя оценка - 4.76
0 / 0 / 0
Регистрация: 07.12.2014
Сообщений: 11
1

Вывести числа так, что каждое новое число должно отличаться от заданного ровно одной цифрой

29.11.2015, 11:20. Показов 5860. Ответов 1
Метки нет (Все метки)

Дано число. В этом числе необходимо изменить одну цифру таким образом, чтобы
новое число делилось на 3 и было бы максимально возможным. В исходном числе нужно
обязательно изменить одну цифру, даже если исходное число уже делилось на 3.
Программа получает на вход одно длинное натуральное число. Длина числа может
достигать 100 цифр.
Программа должна вывести другое натуральное число, удовлетворяющее условиям:
1. Новое число должно отличаться от данного ровно одной цифрой.
2. Новое число должно делиться на 3.
3. Новое число должно быть максимально возможным из всех таких чисел
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.11.2015, 11:20
Ответы с готовыми решениями:

Найти сумму цифр числа; определить, что число начинается и заканчивается одной и той же цифрой
с делфи ,сам не программист,но как предмет поставили.Очень надеюсь на вас Дано натуральное...

Вывести все целые числа от A до B включительно, при этом каждое число должно выводиться столько раз, каково его значение
Ввести целые положительные числа A и B (A < B). Вывести в список все целые числа от A до B...

Вывести все целые числа от А до В включительно; при этом число A должно выводиться 1 раз, число A + 1 должно выводиться 2 раза и т.д.
Даны целые числа A и B (A< B). Вывести все целые числа от А до В включительно; при этом число A...

Верно ли, что число начинается и заканчивается одной и той же цифрой
1. Дано натуральное число. Верно ли, что число начинается и заканчивается одной и той же цифрой....

1
охотник
1011 / 535 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
29.11.2015, 19:53 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const nmax=100;tri=3;
type mas=array[1..nmax] of byte;
var s:string;
    i,n,z:byte;
    sum:integer;
    a:mas;
begin
 readln(s);
 sum:=0;n:=length(s);
 for i:=1 to n do begin a[i]:=ord(s[i])-48; inc(sum,a[i]) end;
 z:=sum mod tri; z:=tri-z;
 i:=1;
 while (i<=n)and(a[i]+z>9) do inc(i);
 if i>n then begin if z=tri then  a[n]:=a[n]-tri else a[n]:=a[n]-tri+z end
        else
         begin
           a[i]:=a[i]+z;
           while a[i]+3<=9 do a[i]:=a[i]+tri
         end;  
 for i:=1 to n do write(a[i])
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.11.2015, 19:53

Верно ли что число начинается и заканчивается одной и той же цифрой
Дано натуральное число. Верно ли, что оно начинается и заканчивается одной и той же цифрой....

Верно ли, что число начинается и заканчивается одной и той же цифрой
Дано трёхзначное натуральное число. Верно ли, что число начинается и заканчивается одной и той же...

Верно ли, что число начинается и заканчивается одной и той же цифрой?
Дано натуральное число: − найти сумму цифр этого числа; − верно ли, что число начинается и...

Верно ли, что число начинается и заканчивается одной и той же цифрой?
Дано натуральное число. Верно ли, что оно начинается и заканчивается одной и той же цифрой?


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

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

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