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

Вариант 1 Задание 1. Построить блок-схему для решения
задачи со следующими условиями:
1) Если значение исходного числа больше
5, то результатом будет
противоположное число;
2) Если значение исходного числа
меньше 5, то результатом будет
Квадрат исходного числа
3) Если значение исходного числа равно 5, то результатом будет исходное число.
Задание 3. Построить блок схему для решения
следующей задачи: необходимо вычислить
сумму 1+2+3+...+(N-1), если N=10​

👇
Открыть все ответы
Ответ:
DashaVinter66
DashaVinter66
31.01.2021
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:= ArrRandom(10, -100, 100);a.Println;
Writeln('Количество отрицательных элемнтов -> ', a.Where(t -> t < 0).Count);
Writeln('Сумма отрицательных элеменов ->', a.Where(t -> t < 0).Sum);
Writeln('Среднее значение положительных элементов ->', a.Where(t -> t > 0).Average);
if a.Where(t -> t > 0).Count > 0 then
  Writeln('Максимальное положительное значение -> ', a.Where(t -> t > 0).Max)
else Writeln('Положительных чисел нет');

end.
4,7(55 оценок)
Ответ:
По всей видимости, нужно объяснить что выведет данная программа...
Давай анализировать и разбираться.
Мы создаем целочисленную переменную n, которую потом в цикле будем наращивать на "1". Такие переменные называют "Счетчик"
Далее, создаем переменную s, равную 512, и пока она больше или равна нулю, мы отнимаем от нее "20". 
Посчитаем, сколько раз нужно отнять 20 от 512, чтобы получилось число меньше нуля:
512 / 20 = 25 и +"1" = 26, т.к. условие содержит "=".
26 раз мы увеличим переменную n, это и будет наш ответ
4,7(28 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ