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

Как удержать результаты вывода на экране дисплея после срабатывания оператора write?

👇
Ответ:
Дарья0007
Дарья0007
26.02.2020

При проведении вычислений или другой обработки данных в программе необходимо вывести результаты из памяти компьютера, для того, чтобы пользователь мог их увидеть. Самой простой формой вывода является вывод данных на экран компьютера.

Простейшая форма записи операторов вывода на экран имеет вид:

Write(выражение1, выражение2, …);

Writeln(выражение1, выражение2, …);

 

В скобках оператора writeln (или write) указывается так называемый список вывода, то есть имена переменных, выражения, значения  которых необходимо вывести на экран. Имена перечисляется через запятую. Пробелы, кроме входящих в строковые константы, игнорируются.

4,8(62 оценок)
Открыть все ответы
Ответ:
porotnikova03
porotnikova03
26.02.2020

using System;

namespace Task

{

   class Program

   {

       static void Main(string[] args)

       {

           int[] numbers = {2,-27,-2,5,14,-88,54,-69};

           int count = 0;

           foreach (int number in numbers)

           {

               if (number > 0)

               {

                   count++;

               }

           }

           Console.WriteLine("Положительных чисел в массиве: "+count);

       }

   }

}

Программа считает количество положительных чисел больше нуля.

4,5(43 оценок)
Ответ:
Vadya91102
Vadya91102
26.02.2020
PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018Внимание! Если программа не работает, обновите версию!№1

begin

 ReadSeqInteger(4).Where(t -> t.IsEven).Count.Println

end.

№2

begin

 var (a, b, c) := ReadReal3('Введите a, b, c:');

 var D := b * b - 4 * a * c;

 if d < 0 then Println('Нет корней')

 else

   if d = 0 then Println('x =', -b / 2 / a)

   else

   begin

     D := Sqrt(D);

     Print('x1 =', (-b - D) / 2 / a);

     Println('x2 =', (-b + D) / 2 / a);

   end

end.

№3

begin

 var (x, y) := ReadReal2;

 if x = 0 then

   if y = 0 then Println('Начало координат')

   else Println('Ось Oy')

 else

   if y = 0 then Println('Ось Ox')

   else

     if x < 0 then

       if y > 0 then Println('II четверть')

       else Println('III четверть')

     else

       if y > 0 then Println('I четверть')

       else Println('IV четверть')

end.

4,8(30 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ