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

Склавиатуры вводится 3 числа,если сумма трёх чисел положительная и произведение трёх чисел равно от -150 до 200,то необходимо вывести на экран циклом while 3 раза "ура". язык c# 30 .

👇
Ответ:
sashapustoxin
sashapustoxin
21.02.2021

//Если произведение находится в промежутке не [-150 ; 200] , а в промежутке (-150 ; 200) , то замените >= и <= на > и < соответственно

using System;

namespace ConsoleApp11

{

   class Program

   {

       static void Main(string[] args)

       {

           const int size = 3;

           int[] numbers = new int[size];

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

           {

               Console.Write("Введите " + (i + 1) + " число: ");

               numbers[i] = int.Parse(Console.ReadLine());

           }

           if (Sum(numbers) >= 0 && Multiplication(numbers) >= -150 && Multiplication(numbers) <= 200)

           {

               Console.WriteLine("");

               int counter = 0;

               while(counter < 3)

               {

                   Console.WriteLine("Ура!");

                   counter++;

               }

           }

           Console.ReadKey();

       }

       static int Sum(int[] arr)

       {

           int sum = 0;

           for (int i = 0; i < arr.Length; i++)

               sum += arr[i];

           return sum;

       }

       static int Multiplication(int[] arr)

       {

           int multiplication = 1;

           for (int i = 0; i < arr.Length; i++)

               multiplication *= arr[i];

           return multiplication;

       }

   }

}


Склавиатуры вводится 3 числа,если сумма трёх чисел положительная и произведение трёх чисел равно от
4,6(82 оценок)
Открыть все ответы
Ответ:
Vlada434
Vlada434
21.02.2021
Procedure TForm1.Button1Click(Sender: TObject);
begin
    If FontDialog.Execute then
        RichEdit1.SelAttributes.Assign(FontDialog1.Font);
        RichEdit1.SetFocus;
    End;
end;

делфи у меня не установлены за совершенной ненадобностью, потому проверить возможности нет, но догадки показать могу.
 Не уверенна что RichEdit1.SelAttributes.Assign(FontDialog1.Font) выставляет шрифт, может там нужна кострукция типа
  RichEdit1.SelAttributes.Font := FontDialog1.Font
и конечно описка выделенная ранее, как на нее только компилятор не матерится
4,7(10 оценок)
Ответ:
katyasvk
katyasvk
21.02.2021
Var
  s,s1:string;
  a,b:array[1..100]of integer;
  i,n,x,k:integer;
    begin
      readln(s);
      readln(s1);
      n:=1;
       if length(s)>length(s1) then
        x:=length(s)
        else x:=length(s1);
         for i:=1 to length(s) do
         begin
          val(copy(s,i,1),k,n);
          a[i+x-length(s)]:=k;
         end;
           for i:=1 to length(s1) do
         begin
          val(copy(s1,i,1),k,n);
          b[i+x-length(s1)]:=k;
         end;
      for i:=1 to length(s) do
        a[i]:=a[i]+b[i];
        for i:=length(s) downto 2 do
        begin
         a[i-1]:=a[i-1]+a[i]div 10;
         a[i]:=a[i]mod 10;
        end;
      for i:=1 to length(s) do
       write(a[i]);
        
        
      end.
         
4,6(81 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ