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

заполните массив случайными числами в интервале (0,20). Введите число x, найдите все значения, равные х

Показать ответ
Ответ:
rekrut234
rekrut234
07.04.2023 16:19
C#. Код ниже.

using System;
namespace ConsoleApp1{    class Program    {        static void Main(string[] args)        {            //переменная для хранения суммы, изначально = 0            var sum = 0;            //вводимое число, изначально = 0            int number = -1;            //пока число не равно 0            while (number != 0)            {                //выводим сообщение с ввести число                Console.Write("Введите число: ");                //вводим число                number = int.Parse(Console.ReadLine());                //суммуируем                sum += number;            }            //Выводим результат            Console.WriteLine("Выход из цикла. Сумма = " + sum);            Console.ReadKey();        }    }}
0,0(0 оценок)
Ответ:
countrestrikegl
countrestrikegl
15.01.2020 15:14
Uses graphABC;
const
  c: array [1..7, 1..3] of byte = ((50, 50, 133), (0, 0, 255), (0, 160, 227), (0, 255, 0), (255, 255, 0), (239, 127, 26), (255, 0, 0));

var
  i: byte;

procedure ColArc(x, y: integer; r: integer; nc: byte);
begin
  SetPenColor(rgb(c[nc, 1], c[nc, 2], c[nc, 3]));
  Arc(x, y, r + 10, 0, 180);
  Arc(x, y, r - 10, 0, 180);
  line(x - r - 11, y - 2, x - r + 11, y - 2);
  line(x + r - 11, y - 2, x + r + 11, y - 2);
  floodfill(x, y - r, rgb(c[nc, 1], c[nc, 2], c[nc, 3]));
end;

begin
  setwindowsize(500, 300);
  for i := 1 to 7 do
    ColArc(250, 300, 100 + (i * 20), i);
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота