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

Сорок пятый класс информатика 4 четверть ответ​

Показать ответ
Ответ:
yufhdg
yufhdg
27.05.2023 20:55
Var a,b,c,d:integer;
begin
  writeln('Введите 4 числа через пробел'); readln(a,b,c,d);
  if (a>0)and(b>0)and(c>0)and(d>0) then writeln('Все числа положительные')
 else if ((a<0)and(b>0)and(c>0)and(d>0))or((a>0)and(b<0)and(c>0)and(d>0))or((a>0)and(b>0)(c<0))or((a>0)and(b>0)and(c>0)and(d<0)) then writeln('3 числа положительные')
  else if ((a<0)and(b<0)and(c>0)and(d>0))or((a<0)and(b>0)and(c<0)and(d>0))or((a<0)and(b>0)and(c>0)and(d>0))or((a<0)and(b>0)and(c>0)and(d<0))or((a>0)and(b<0)and(c<0)and(d>0))or((a>0)and(b<0)and(c>0)and(d<0))or((a>0)and(b>0)and(c<0)and(d<0)) then writeln('2 числа положительных');
  else if ((a>0)and(b<0)and(c<0)and(d<0))or((a<0)and(b>0)and(c<0)and(d<0))or((a<0)and(b<0)and(c>0)and(d<0))or((a<0)and(b<0)and(c<0)and(d>0)) then writeln('1 положительное число')
  else if (a<0)and(b<0)and(c<0)and(d<0) then writeln('Нет положительных чисел');
  readln
end.
0,0(0 оценок)
Ответ:
drfast555
drfast555
20.06.2020 23:06

using System;

namespace Znanija

{

   class Program

   {

       static void Main(string[] args)

       {

           Console.Write("Введите элементы массива через пробел: ");

           int[] arr = Array.ConvertAll(Console.ReadLine().Split(' ', StringSplitOptions.RemoveEmptyEntries), int.Parse);

           string result = "";

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

           {

               if (arr[i] == 0) result += i + " ";

           }

           Console.WriteLine("Индексы элементов равных нулю: {0}", result);

       }

   }

}

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