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

Трёхзначные числа: если к сумме цифр числа прибавить квадрат этой суммы, то получится снова заданное число

21.12.2015, 18:28. Показов 735. Ответов 1
Метки нет (Все метки)

Реализуйте программу поиска трёхзначных чисел, обладающих следующим свойством: если к сумме цифр числа прибавить квадрат этой суммы, то получится снова заданное число.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
  i, s: integer;
 
begin
 s:=0;
  for i := 100 to 999 do 
  begin
    s := i div 100 + i div 10 + i mod 10; 
    if i = s + sqr(s) then 
      write(i:4); 
  end; 
  writeln; 
end.
Подскажите пожалуйста что не так в задаче

Добавлено через 37 минут
Может кому пригодится
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
  a,b,c,i, s: integer;
 
begin
 s:=0;
  for i := 100 to 999 do 
  begin
    a:=i div 100;
    b:=(i div 10) mod 10;
    c:=i mod 10;
    s:=a+b+c;
    //writeln('I= ',i:4,' A= ',a,' B= ',b,' C= ',c,' S= ',s);
 
    if i = s + sqr(s) then 
      write(i:4); 
  end; 
  writeln; 
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.12.2015, 18:28
Ответы с готовыми решениями:

2. Написать программу поиска двузначных чисел, обладающих следующим свойством: если к сумме цифр числа прибавить квадрат этой суммы, то получится снов
Кто может напишите пожалуйста эти программы с процедурой или функцией: 1) Дан двумерный массив....

Найти все натуральные числа, такие, что если к сумме цифр числа прибавить квадрат этой суммы, то получится само число
Найти все N-значные натуральные числа (1<N<5), такие, что если к сумме цифр числа прибавить квадрат...

Если к сумме цифр двузначного числа прибавить квадрат этой суммы, то снова получится это двузначное число
б)если к сумме цифр двузначного числа прибавить квадрат этой суммы,то снова получится это...

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

1
охотник
1011 / 535 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
21.12.2015, 18:54 2
или так...
Pascal
1
2
3
4
5
6
var i: integer;
begin
  for i := 100 to 999 do 
    if i=(i div 100+i div 10 mod 10+i mod 10)+sqr(i div 100+i div 10 mod 10+i mod 10)
     then write(i:4,' '); 
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.12.2015, 18:54

Найти двузначные числа: если к сумме цифр прибавить квадрат этой суммы, то снова получится двузначное число
Найти все двузначные числа, каждое из которых обладает следующим свойством: если к сумме цифр...

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

Найти числа такие, что если к сумме цифр числа прибавить квадрат этой суммы, то получится снова данное число
Написать программу поиска двухзначных чисел, обладающих следующим свойством: если к сумме цифр...

Если к сумме цифр двузначного числа прибавить квадрат этой суммы, то снова получится это двузначное число
Задание: Написал примерный код, но сомневаюсь что правильно применил цикл. Сейчас компилятора...


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

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

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