Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 15, средняя оценка - 4.93
90Kinoman
2 / 2 / 0
Регистрация: 29.12.2009
Сообщений: 55
#1

Сумма цифр трёхзначного числа кратна 7, само число также делится на 7. Найти все такие числа. - Pascal

11.01.2010, 14:24. Просмотров 2319. Ответов 15
Метки нет (Все метки)

1) Сумма цифр трёхзначного числа кратна 7, само число также делится на 7. Найти все такие числа

2) Приписать по 1 в начале и в конец записи числа n. нАПРИМЕР, БЫЛО n=3456? стало n=134561.

3) Определить, сколько элементов массива превосходят по модулю заданное число A.

4) Если элемент массива чётный, то прибавить к нему первый, если нечётный - последний элемент массива. Первый и последний элементы не изменять.

5) Перераспределить значения переменных x и y так, чтобы в х оказалось большее из этих значений, а в y - меньшее.

6) Даны три положительных числа a,b,c. Проверить, будут ли они сторонами треугольника. Если да, то вычислить площадь этого треугольника.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.01.2010, 14:24
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Сумма цифр трёхзначного числа кратна 7, само число также делится на 7. Найти все такие числа. (Pascal):

Сумма цифр трехзначного числа кратна 7, само число также делится на 7. Найдите все такие числа
Сумма цифр трехзначного числа кратна 7, само число также делится на 7. Найдите...

Найти все четырёхзначные числа, у которых сумма крайних цифр равна сумме средних цифр, а само число делится на 6 и 27.
Помогите решить ещё одну задачку :) Найти все четырёхзначные числа, у которых...

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

найти все трёхзначные числа, такие у которых сумма цифр равна A, а само число делиться на B.
Помогите пожалуйста решить задачку :-) найти все трёхзначные числа, такие у...

Произведение цифр трехзначного числа кратно 11, само число также делится на 11. Найти количество таких чисел
Здравствуйте. Буду благодарен, если поможете с решением задачи. ...

Найти все такие числа N (N<=100), что у числа N! Сумма цифр – простое число
Доброе время суток. Задача такова: найти все такие числа N (N&lt;=100), что у...

15
Aye Aye
370 / 284 / 97
Регистрация: 17.12.2009
Сообщений: 567
11.01.2010, 14:50 #2
2:
Pascal
1
2
3
4
5
6
7
8
9
10
11
 program prg;
var i,n,x,temp: longint;
begin
     readln(n);
     temp:=n;
     i:=10;
     while (temp div i) > 0 do i:=i*10;
     x:=(i + n) *10 +1;
     writeln(x);
     readln;
end.
Добавлено через 16 минут
1:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program prg;
uses crt;
var i,n,m,n0,n1,n2: integer;
begin
     n:=100 div 7 + 1;
     m:=1000 div 7;
     clrscr;
     for i:=n to m do begin
         n0:=(i*7) mod 10;
         n1:=((i*7) mod 100 - n0) div 10;
         n2:=((i*7) mod 1000 - n1*10 - n0) div 100;
         if((n2+n1+n0) mod 7=0) then writeln(i*7);
     end;
     readln;
end.
2
Artishok
ЧакЭ одобряЭ
280 / 279 / 84
Регистрация: 27.12.2009
Сообщений: 1,767
11.01.2010, 15:21 #3
3.
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
uses
 crt;
var
 a:array[1..20] of integer;
 i,n,k,b:integer;
 
 
 begin
 clrscr;
 randomize;
 writeln('введите размерность массива');
 readln(n);
 writeln('введите число');
 readln(b);
 k:=0;
 writeln('исходный массив');
 for i:=1 to n do begin
  a[i]:=random(20);
   write(a[i],' ');
   end;
  readln;
  for i:=1 to n do begin
  if abs(a[i])>abs(b) then
   k:=k+1;
   end;
   writeln('элементов певосходящих по модулю число',' ',b,' ','=',' ',k);
   readln;
   end.
4.
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
uses
 crt;
var
 a:array[1..20] of integer;
 i,n:integer;
 
 
 begin
 clrscr;
 randomize;
 writeln('введите размерность массива');
 readln(n);
 
 
 writeln('исходный массив');
 for i:=1 to n do begin
  a[i]:=random(20);
   write(a[i],' ');
   end;
  readln;
  for i:=2 to n-1 do begin
   if a[i] mod 2=0 then
    a[i]:=a[i]+a[1];
   if a[i] mod 2<> 0 then
    a[i]:=a[i]+a[n];
   end;
   writeln(' новый массив');
  for i:=1 to n do begin
   write(a[i],' ');
   end;
   readln;
   end.
2
WolfCF
3288 / 1350 / 108
Регистрация: 28.04.2009
Сообщений: 4,823
11.01.2010, 15:26 #4
Цитата Сообщение от 90Kinoman Посмотреть сообщение
6) Даны три положительных числа a,b,c. Проверить, будут ли они сторонами треугольника. Если да, то вычислить площадь этого треугольника
Какого треугольника?

Не по теме:

или я условие не понял?

2
кот Бегемот
Платежеспособный зверь
8447 / 3886 / 1511
Регистрация: 28.10.2009
Сообщений: 10,062
11.01.2010, 15:28 #5
Даны три положительных числа a,b,c. Проверить, будут ли они сторонами треугольника. Если да, то вычислить площадь этого треугольника.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
a,b,c,s,p:real;
begin
readln(a,b,c);
if (a+b>c)and(a+c>b)and(b+c>a)then begin
writeln('yes');
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('s=',s:5:3);
end
else writeln('no');
readln;
end.
2
WolfCF
11.01.2010, 15:32
  #6

Не по теме:

alexevt, спасибо. *ушел учить математику*

2
кот Бегемот
Платежеспособный зверь
8447 / 3886 / 1511
Регистрация: 28.10.2009
Сообщений: 10,062
11.01.2010, 15:34 #7
Перераспределить значения переменных x и y так, чтобы в х оказалось большее из этих значений, а в y - меньшее.
Pascal
1
2
3
4
5
6
7
8
var
x,y:real;
begin
readln(x,y);
writeln('x=',(x+y)/2+abs(x-y)/2:5:1);
writeln('y=',(x+y)/2-abs(x-y)/2:5:1);
readln;
end.
2
Artishok
ЧакЭ одобряЭ
280 / 279 / 84
Регистрация: 27.12.2009
Сообщений: 1,767
11.01.2010, 15:35 #8
5.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses
 crt;
var
  x,y,a:integer;
 
 
 begin
 clrscr;
 randomize;
 writeln('введите числа х и у');
 readln(x,y);
 if x>y then
  write('x>y менять значения не нужно',' ','x=',x,' ','y=',y);
 if x<y then
   a:=x;
   x:=y;
   y:=a;
   write('x<y, значение изменено',' ','x=',x,'y=',y);
   readln;
end.
2
90Kinoman
2 / 2 / 0
Регистрация: 29.12.2009
Сообщений: 55
11.01.2010, 15:37  [ТС] #9
Цитата Сообщение от Wolf Посмотреть сообщение
Какого треугольника?

Не по теме:

или я условие не понял?

зависит от чисел которые даны в условии
1
Artishok
ЧакЭ одобряЭ
280 / 279 / 84
Регистрация: 27.12.2009
Сообщений: 1,767
11.01.2010, 15:44 #10
но свойство одно
сумма двух сторон должна быть больше 3-й стороны

Добавлено через 2 минуты
Цитата Сообщение от alexevt Посмотреть сообщение
(x+y)/2+abs(x-y)/2
alexevt,а как это выражение получается?я из математики забыл
2
кот Бегемот
Платежеспособный зверь
8447 / 3886 / 1511
Регистрация: 28.10.2009
Сообщений: 10,062
11.01.2010, 15:48 #11
а это известная задача, не применяя третьей переменной или if...then найти большее и меньшее
основано на среднем и прибавлении или отнимании от него полуразницы, просто и красиво
1
B-52
1 / 1 / 0
Регистрация: 29.12.2009
Сообщений: 5
11.01.2010, 15:48 #12
Цитата Сообщение от Artishok Посмотреть сообщение
но свойство одно
сумма двух сторон должна быть больше 3-й стороны

Добавлено через 2 минуты

alexevt,а как это выражение получается?я из математики забыл
не помню
1
кот Бегемот
Платежеспособный зверь
8447 / 3886 / 1511
Регистрация: 28.10.2009
Сообщений: 10,062
11.01.2010, 15:51 #13
Цитата Сообщение от B-52 Посмотреть сообщение
не помню
да тебя, в общем, и не просили вспоминать
1
90Kinoman
2 / 2 / 0
Регистрация: 29.12.2009
Сообщений: 55
11.01.2010, 15:55  [ТС] #14
Цитата Сообщение от Artishok Посмотреть сообщение
но свойство одно
сумма двух сторон должна быть больше 3-й стороны

Добавлено через 2 минуты

alexevt,а как это выражение получается?я из математики забыл
свойство то да..согласен с тобой....а выражение то я тоже не знаю как получается
0
кот Бегемот
Платежеспособный зверь
8447 / 3886 / 1511
Регистрация: 28.10.2009
Сообщений: 10,062
11.01.2010, 16:23 #15
а выражение то я тоже не знаю как получается
а не надо и заморачиваться на этом, это из логики вытекает:
берём полусумму и полуразность. Если их сложить, будет большее из двух,
а если вычесть - меньшее.
а чтоб не мучаться, что из чего вычитать, пишем abs
1
90Kinoman
2 / 2 / 0
Регистрация: 29.12.2009
Сообщений: 55
11.01.2010, 18:11  [ТС] #16
Цитата Сообщение от alexevt Посмотреть сообщение
а не надо и заморачиваться на этом, это из логики вытекает:
берём полусумму и полуразность. Если их сложить, будет большее из двух,
а если вычесть - меньшее.
а чтоб не мучаться, что из чего вычитать, пишем abs
спасибо
0
11.01.2010, 18:11
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.01.2010, 18:11
Привет! Вот еще темы с решениями:

Верно ли что число 4-значное и у него сумма крайних цифр равна сумме средних цифр? Найти все такие числа.
Написать программу : Дано нат. число. Верно ли что число 4-значное и у него...

Найти все такие N(N<100),что у числа N!(факториал) сумма цифр-квадрат целого числа
Без этой задачи мне не ставят зачет и я не могу выйти на сэссию=( &quot;&quot;Найти...

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

Найти все трехзначные числа, сумма квадратов цифр которых кратна заданному числу m
Задача: Найти все трехзначные числа сумма квадратов цифр, которых кратна...


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

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

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