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

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

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

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

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

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

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

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

6) Даны три положительных числа a,b,c. Проверить, будут ли они сторонами треугольника. Если да, то вычислить площадь этого треугольника.
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.01.2010, 14:24
Ответы с готовыми решениями:

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

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

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

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

15
372 / 286 / 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
ЧакЭ одобряЭ
282 / 281 / 86
Регистрация: 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
3300 / 1361 / 109
Регистрация: 28.04.2009
Сообщений: 4,823
11.01.2010, 15:26 4
Цитата Сообщение от 90Kinoman Посмотреть сообщение
6) Даны три положительных числа a,b,c. Проверить, будут ли они сторонами треугольника. Если да, то вычислить площадь этого треугольника
Какого треугольника?

Не по теме:

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

2
Платежеспособный зверь
8682 / 4110 / 1594
Регистрация: 28.10.2009
Сообщений: 11,112
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
Платежеспособный зверь
8682 / 4110 / 1594
Регистрация: 28.10.2009
Сообщений: 11,112
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
ЧакЭ одобряЭ
282 / 281 / 86
Регистрация: 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
2 / 2 / 0
Регистрация: 29.12.2009
Сообщений: 55
11.01.2010, 15:37  [ТС] 9
Цитата Сообщение от Wolf Посмотреть сообщение
Какого треугольника?

Не по теме:

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

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

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

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

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

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

alexevt,а как это выражение получается?я из математики забыл
свойство то да..согласен с тобой....а выражение то я тоже не знаю как получается
0
Платежеспособный зверь
8682 / 4110 / 1594
Регистрация: 28.10.2009
Сообщений: 11,112
11.01.2010, 16:23 15
а выражение то я тоже не знаю как получается
а не надо и заморачиваться на этом, это из логики вытекает:
берём полусумму и полуразность. Если их сложить, будет большее из двух,
а если вычесть - меньшее.
а чтоб не мучаться, что из чего вычитать, пишем abs
1
2 / 2 / 0
Регистрация: 29.12.2009
Сообщений: 55
11.01.2010, 18:11  [ТС] 16
Цитата Сообщение от alexevt Посмотреть сообщение
а не надо и заморачиваться на этом, это из логики вытекает:
берём полусумму и полуразность. Если их сложить, будет большее из двух,
а если вычесть - меньшее.
а чтоб не мучаться, что из чего вычитать, пишем abs
спасибо
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.01.2010, 18:11

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

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

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

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

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


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

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

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