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

С клавиатуры вводится целое двузначное число Н (10≤Н≤99). Составить программу, которая определяет, равно ли оно квадрату суммы его цифр?
Например: Н=81
81=(8+1)2 -«равно квадрату суммы своих цифр»
Н=82
81(не равно)(8+2)2 - «не равно квадрату суммы своих цифр»

Сделать как в кумире

Показать ответ
Ответ:
hamestik
hamestik
07.12.2022 15:52
//Pascal ABC.NET v3.0 сборка 1111

Const
 n=30;

 type
 tys=array[1..n] of string;

Var
 ars:tys;
 i,j:integer;
 s:string;

 procedure sorts(var ars:tys;n1:integer);
Var
 i,j:integer;
 c:string;
begin
 for i:=1 to n1-1 do
  for j:=i to n1 do
   if ars[i]>ars[j] then
    begin
     c:=ars[i];
     ars[i]:=ars[j];
     ars[j]:=c;
    end;
end;
   begin
 readln(s);
 j:=1;
 while pos(' ',s)<>0 do
  begin
   for i:=1 to pos(' ',s) do
    ars[j]:=ars[j]+s[i];
   delete(s,1,pos(' ',s));
   inc(j);
  end;
  ars[j]:=s;
 sorts(ars,j+1);
 writeln('Result=');
 for i:=1 to n do  writeln(ars[i]);
end.

Пример ввода:
панамка пена пенал паста параллелепипед подражатель пинать явный полиморфизм приведение паскаль тетрадь разум
Пример вывода:
панамка параллелепипед паскаль паста пена пенал пинать подражатель полиморфизм приведение разумтетрадь явный 
0,0(0 оценок)
Ответ:
erke22
erke22
27.05.2021 07:46

ЯП: С++ | можно не писать std:: , если использовать пространство имен: using namespace std;

#include <iostream>

int main() {

const int SIZE = 10;

int regim, sum, max, count;

int arr[SIZE];

for (int i = 0; i < SIZE; i++)

{

 std::cin >> arr[i]; // вводим элементы массива

 std::cout << arr[i] << "\t"; // выводим массив в консоль

}

std::cin >> regim;

if ((regim > 0) && (regim < 4))

{

 if (regim == 1)

 {

  for (int i = 0; i < SIZE; i++)

  {

   sum += arr[i]; // или sum = sum + arr[i];

  }

  std::cout << "Сумма элементов массива = " << sum << std::endl;

 }

 else if (regim == 2)

 {

  max = arr[0];

  for (int i = 0; i < SIZE; i++)

  {

   if (max < arr[i])

    max = arr[i];

  }

  std::cout << "Максимальный элемент в массиве = " << max << std::endl;

 }

 else

 {

  for (int i = 0; i < SIZE; i++)

  {

   if (arr[i] < 0)

    count++;

  }

  std::cout << "Число отрицательных элементов в массиве = " << count << std::endl;

 }

}

else

 std::cout << "Доступен только 1-3 режим!" << std::endl;

return 0;

}

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота