Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.93/15: Рейтинг темы: голосов - 15, средняя оценка - 4.93
forside
1

дано 4 значное число и натуральное число..

09.04.2010, 20:48. Показов 3100. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
помогите, пожалуйста вот с двумя

дано 4 значное число
определить!
а)равна ли сумма двух его первых цифр двум последним
б)кратно ли 3 сумма его цифр
в)кратно ли 4 произведение его цифр
г)кратно ли произведение его цифр числу

дано натуральное число
а)верно ли, что оно заканчивается четной цифрой
б)верно ли, что оно нечетное

Добавлено через 28 минут
если можно попроще =\

вторую вроде сделал

а с первой вот никак
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.04.2010, 20:48
Ответы с готовыми решениями:

Дано натуральное n-значное число P. Верно ли что число содержит три одинаковые цифры.
Люди помогите - нужно програмку написать с помощью процедур и функций - собственно вот: Дано...

Дано 4-х значное натуральное число n.Верно ли,что все 4 цифры числа различны.
Дано 4-х значное натуральное число n.Верно ли,что все 4 цифры числа различны.

Дано натуральное n-значное число. Оставить в этом числе только первую цифру, а остальные заменить нулями
Дано натуральное n-значное число. Оставить в этом числе только первую цифру, а остальные заменить...

Дано натуральное число n. Создать новое число, которое получается написав число обратным порядком
Например, если дано 3578, то получится 8753. Есть такой вариант, но нужно короче... ВАЖНО Нужно...

2
29 / 28 / 18
Регистрация: 06.04.2010
Сообщений: 68
09.04.2010, 21:34 2
Лучший ответ Сообщение было отмечено как решение

Решение

если правильно условие понял то так:
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
program laba;
uses crt;
var
n,i,x,s,k:integer;
 
begin
clrscr;
repeat
writeln('Vvedite 4x znachnoe chiclo 1000..9999');
readln(n);
until (n>1000) and (n<9999);
 
 
if (n mod 100)=(((n div 100) div 10)+((n div 100) mod 10)) then writeln('a) Yes') else writeln('a) No');
 
 
 
x:=n;
s:=0;
for i:=1 to 4 do
begin
k:=x mod 10;
x:=x div 10;
s:=s+k;
end;
if s mod 3=0 then writeln('b) Yes') else writeln('b) No');
 
 
 
x:=n;
s:=0;
for i:=1 to 4 do
begin
k:=x mod 10;
x:=x div 10;
s:=s*k;
end;
if s mod 4=0 then writeln('c) Yes') else writeln('c) No');
 
 
x:=n;
s:=0;
for i:=1 to 4 do
begin
k:=x mod 10;
x:=x div 10;
s:=s*k;
end;
if s mod n=0 then writeln('d) Yes') else writeln('d) No');
 
 
 
readln;
end.
0
6 / 6 / 0
Регистрация: 22.03.2010
Сообщений: 36
09.04.2010, 21:41 3
оо норм у меня все пошло)
0
09.04.2010, 21:41
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.04.2010, 21:41
Помогаю со студенческими работами здесь

Дано натуральное число n. Получите наименьшее натуральное число вида m2, превосходящее n
Дано натуральное число n. Получите наименьшее натуральное число вида m2, превосходящее n.

Дано 4-ёх значное число...
Дано 4-ёх значное число. Написать программу, определяющую, входят ли в него цифры 4 и 7. Нужно...

Дано 4х значное целое число...
Дано 4х значное целое число (записанное в одной переменной). Найти число полученное перестановкой...

Дано натуральное число n, получить наименьшее число вида 2^r, прувосходящее n
Дано натуральное число n, получить наименьшее число вида 2^r, прувосходящее n!!!!!!!!!!!!!!!!!!


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

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