
вывести на экран 100 случайных трехзначных чисел выделить красным цветом числа оканчивающиеся на 0.
найти сумму всех которые меньше числа 500

Ответы на вопрос

===== PascalABC.NET =====
uses System;
begin
var a := ArrRandom(100, 100, 999);
foreach var n in a do
begin
if n mod 10 = 0 then
Console.ForegroundColor := ConsoleColor.Red
else
Console.ResetColor;
Console.Write(n + ' ')
end;
Writeln;
Console.WriteLine(a.Where(p -> p < 500).Sum)
end.




PascalABC.NET
Uses crt;
begin
Var Sum:=0;
var Arr := ArrRandom(100,100,999);
foreach var x in Arr do begin
if x mod 10 = 0 then begin
textcolor(red);
x.Print
end
else begin
Textcolor(white);
x.Print
end;
if x < 500 then
Sum+=x
end;
Println;
Textcolor(white);
Println('Summ x<500 = ',sum);
end.
Результат приложил в виде скрина.




Для решения этой задачи, предположим, что вы хотите вывести 100 случайных трехзначных чисел, выделить красным цветом числа, оканчивающиеся на 0, и затем найти сумму всех чисел, которые меньше 500. При этом предполагается, что код будет выполняться на платформе, которая поддерживает вывод текста с форматированием, таким как HTML или Jupyter Notebook.
Ниже представлен код на Python, который решает эту задачу:
pythonimport random
def generate_three_digit_number():
return random.randint(100, 999)
# Функция для выделения текста красным цветом в HTML
def red_text(text):
return f'<span style="color:red">{text}</span>'
# Генерируем и выводим 100 случайных трехзначных чисел
numbers = [generate_three_digit_number() for _ in range(100)]
for num in numbers:
if num % 10 == 0: # Проверяем, оканчивается ли число на 0
print(red_text(num), end=' ')
else:
print(num, end=' ')
# Находим сумму чисел, которые меньше 500 и оканчиваются на 0
sum_ending_with_0 = sum(num for num in numbers if num < 500 and num % 10 == 0)
print("\nСумма чисел, которые меньше 500 и оканчиваются на 0:", sum_ending_with_0)
Примечание:
- Этот код предполагает, что вывод производится в формате, поддерживающем HTML, чтобы можно было выделить текст красным цветом. Если вы выполняете код в обычной среде, вывод будет просто числами без цветового выделения.
- Обратите внимание, что сумма всех чисел, оканчивающихся на 0 и меньше 500, будет выводиться после списка сгенерированных чисел.


Похожие вопросы
Топ вопросов за вчера в категории Информатика
Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili