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

Известна масса каждого из 12 предметов. Определить общую массу всего набора предметов (PASCAL). Сделайте через

👇
Ответ:
14света14
14света14
10.03.2022

program z1;

var i,m,s:integer;

begin

randomize;

s:=0;

for i:=1 to 12 do

begin

m:=random(100);

writeln ('Масса ',i:2,' предмета: ',m);

s:=s+m

end;

write('Общая масса всего набора предметов: ',s)

end.

Объяснение:

Вначале общая масса всего набора предметов равна 0 (переменная s)

В цикле:

задаём массу предмета (random)

выводим массу предмета на экран

считаем общую массу всего набора предметов

Выводим общую массу всего набора предметов на экран

4,6(72 оценок)
Открыть все ответы
Ответ:
katiakosareva11
katiakosareva11
10.03.2022

1)

using System;

class Program {

   static void Main() {

       int num = 16;

       bool isPow2 = true;

       

       while (num > 1){

           if (num % 2 == 0){

               num /= 2;

           } else {

               isPow2 = false;

               break;

           }

       }

       

       if (isPow2)

           Console.WriteLine("Является");

       else

           Console.WriteLine("Не является");

   }

}

2)

using System;

class Program {

   static Random rnd = new Random();

   

   static void Main() {

       int min = 1;

       int max = 100;

       int numOfAttempts = 8;

       int x = rnd.Next(min, max);

       bool isWin = false;

       

       Console.WriteLine("Игра \"Больше-Меньше\"");

       Console.Write("Задайте число попыток: ");

       numOfAttempts = Convert.ToInt32(Console.ReadLine());

       Console.WriteLine("Отгадайте число от {0} до {1}", min, max);

       Console.WriteLine("Попытки: {0}\n", numOfAttempts);

       int input;

       do {

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

           input = Convert.ToInt32(Console.ReadLine());

           numOfAttempts--;

           if (input > x)

               Console.WriteLine("x < {0}   [попытки: {1}]", input, numOfAttempts);

           if (input < x)

               Console.WriteLine("x > {0}   [попытки: {1}]", input, numOfAttempts);

           if (input == x){

               isWin = true;

               break;

           }

       } while (numOfAttempts > 0);

       

       if (isWin){

           Console.WriteLine("\nПобеда!");

       } else {

           Console.WriteLine("\nПроигрыш! Загаданное число: {0}", x);

       }

   }

}

4,5(16 оценок)
Ответ:
Цикл while

Пишется так:

while условие do

begin

Тело цикла

end;

Выполняет тело цикла (команды между begin и end;) пока соблюдено условие в заголовке цикла.

Пример:

while x<100 do

begin

x:= x+1;

end;

Прибавляет к переменной x единицу пока x меньше ста. Если x больше ста, то цикл заканчивается.

Числа Фибоначчи

Последовательность начинается с 0 1

Каждое следующее число равно сумме двух предыдущих

0 1 1 (0+1=1)

0 1 1 2 (1+1=2)

0 1 1 2 3 (1+2=3)

0 1 1 2 3 5 (2+3=5)

и т.д.

Одномерные массивы

Массив можно представить как ряд из ящиков

каждый ящик имеет свой номер (индекс)

в ящике лежит значение (цифры или символы)

Объявляются как переменные в начале программы:

program raf105

var название:array[количество элементов] of тип;

количество элементов пишется как диапазон от минимального значения индекса (Индекс это число в квадратных скобках) до максимального между ними ставятся две точки

Пример:

program raf105

var X:array[1..10] of integer;

Это массив под названием X с 10-ю элементами типа integer

Обращение к массиву

Название[индекс]

Пример:

x[8]:= 101;

Мы присвоили восьмому элементу массива под названием x значение 101

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