М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
366023
366023
27.10.2021 04:22 •  Информатика

Розмер масива 8

тип елемента целый

вычислить сумму элементов массива, кратных 3
зделать програму в с++

👇
Открыть все ответы
Ответ:
1. Современный вариант

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  var pow3:integer->integer:=n->n*n*n;
  var Good:integer->boolean:=n->(pow3(n div 100)+
  pow3((n div 10) mod 10)+pow3(n mod 10))=n;
  Range(100,999).Where(x->Good(x)).Print
end.

Результат:
153 370 371 407

2. Школьный вариант

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
var
  i,n,d100,d10,d1:integer;
begin
  for i:=100 to 999 do begin
    d100:=i div 100;
    d10:=(i div 10) mod 10;
    d1:=i mod 10;
    if d100*sqr(d100)+d10*sqr(d10)+d1*sqr(d1)=i then
      Write(i,' ')
    end;
end.
4,4(25 оценок)
Ответ:
ScRoller
ScRoller
27.10.2021
Using System;
using System.Text;

class MainClass
{
        public static void DoReg()
        {
                string text = Console.ReadLine();

                StringBuilder builder = new StringBuilder();
                bool flag = true;
        
                foreach (char ch in text)
                {
                        // Меняем регистр у каждой буквы в соответствии с флагом
                        if (flag)
                                builder.Append(char.ToUpper(ch));
                        else
                                builder.Append(char.ToLower(ch));

                        flag = !flag;
                }

                Console.WriteLine(builder.ToString());
        }

        public static void Main()
        {
                DoReg();
                Console.ReadLine();
        }
}
4,6(82 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ