Вывести на экран только те числа последовательности, квадрат суммы цифр которых больше 100

@andrewandrew73 · Регистрация: 25.11.2014

Студворк — интернет-сервис помощи студентам

Программа генерирует и выводит 10 случайных чисел в интервале от 20 до 70 с пояснение, что это исходный ряд чисел, затем вычисляет квад-рат суммы цифр каждого числа и выводит на экран только те числа, квадрат суммы цифр которых больше 100.
Как то так...

@ZX Spectrum-128 · 04.12.2014, 11:58

Изначально: (С) HighPredator

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
uses
  crt;
var
  i,a:integer;
 
function DigitSum(const Number:integer):integer;
var
  temp:integer;
  sum:integer;
begin
  sum:=0;
  temp:=Number;
  while temp<>0 do
  begin
    inc(sum,temp mod 10);
    temp:=temp div 10;
  end;
  Result:=sum;
end;
 
begin
  clrscr;
  writeln('Красным выделены числа, удовлетвряющие условию: ');
  for i:=1 to 10 do
    begin
      a:=random(50)+20;
      if sqr(DigitSum(a))> 100 then
        begin
          textcolor(lightred);
          write(a:3);
        end
      else
        begin
          textcolor(white);
          write(a:3);
        end;
    end;
  readln;
end.

@bormant · 04.12.2014, 12:07

ZX Spectrum-128,
числа двузначные, всё намного проще:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
const
  n=10
var
  a: array [1..n] of Integer;
  i: Integer;
begin
  WriteLn('Исходный ряд:');
  for i:=1 to n do begin
    a[i]:=20+Random(71-20); Write(a[i]:3);
  end; WriteLn;
  WriteLn('Из них те, квадрат суммы цифр которых больше 100:');
  for i:=1 to n do if sqr(a[i] div 10 + a[i] mod 10)>100 then Write(a[i]:3);
  WriteLn;
end.

Добавлено через 2 минуты
И чуть-чуть оптимальнее, пользуясь тем, что sqrt(100)=10, можно строку 12 заменить на:

Pascal
1
for i:=1 to n do if a[i] div 10 + a[i] mod 10>10 then Write(a[i]:3);

@ZX Spectrum-128 · 04.12.2014, 12:08

bormant, а-а-а, понял теперь. Я сначала подумал, что массивы нельзя использовать.

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .

@andrewandrew73 2 / 2 / 1 Регистрация: 25.11.2014 Сообщений: 25

	Вывести на экран только те числа последовательности, квадрат суммы цифр которых больше 100 04.12.2014, 08:21. Показов 1587. Ответов 3 Метки нет (Все метки) Программа генерирует и выводит 10 случайных чисел в интервале от 20 до 70 с пояснение, что это исходный ряд чисел, затем вычисляет квад-рат суммы цифр каждого числа и выводит на экран только те числа, квадрат суммы цифр которых больше 100. Как то так... 0

@ZX Spectrum-128 6812 / 4568 / 4820 Регистрация: 05.06.2014 Сообщений: 22,434
	04.12.2014, 12:08
	bormant, а-а-а, понял теперь. Я сначала подумал, что массивы нельзя использовать. 0

Вывести на экран только те числа последовательности, квадрат суммы цифр которых больше 100

Решение