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

Определите, что будет напечатано в результате работы следующей программы (на алгоритмическом языке). алг

нач

цел s, k

s := 0

нц для k от 1 до 10

s := s + 7

кц

вывод s

Кон

за ответ)

👇
Открыть все ответы
Ответ:
avfvffg
avfvffg
02.10.2020
Задание 1var    i, N, inputNumber, max: integer;begin    Write('Введите количество чисел: ');    Readln(N);        for i := 1 to N do        begin            Write('Введите число: ');            Readln(inputNumber);                        if (inputNumber mod 10 = 7) then                if (inputNumber > max) then                    max := inputNumber;        end;        if (max = 0) then        Write('В последовательности нет чисел, оканчивающихся на 7')    else Write('Максимальное число, оканчивающееся на 7: ', max);end.Задание 2var    i, N, inputNumber, sum: integer;begin    Write('Введите количество чисел: ');    Readln(N);        for i := 1 to N do        begin            Write('Введите число: ');            Readln(inputNumber);                        if (inputNumber mod 10 = 3) then                sum := sum + inputNumber;        end;        if (sum = 0) then        Write('В последовательности нет чисел, оканчивающихся на 3')    else Write('Сумма чисел, оканчивающихся на 3: ', sum);end.Задание 3var    i, N, inputNumber, valueOfNumbers: integer;begin    Write('Введите количество чисел: ');    Readln(N);        for i := 1 to N do        begin            Write('Введите число: ');            Readln(inputNumber);                        if ((inputNumber mod 10 = 4) and (inputNumber mod 3 = 0)) then                valueOfNumbers := valueOfNumbers + 1;        end;        if (valueOfNumbers = 0) then        Write('В последовательности нет чисел, оканчивающихся на 4 и кратных 3-м')    else Write('Сумма чисел, оканчивающихся на 4 и кратных 3-м: ', valueOfNumbers);end.
4,7(98 оценок)
Ответ:
кар92
кар92
02.10.2020

Объяснение:1.         Следует предварительно выделить необходимый фрагмент таблицы, на основе которого строится диаграмма, причем хорошо бы, чтоб левый столбец содержал названия строк, а первая строка – названия столбцов. Тогда мастер сразу включит их в диаграмму, расположив по осям или вставив в легенду. Если требуется выделить данные в разных частях таблицы, выделение выполняют при нажатой клавише Ctrl.

2.         Выберите тип диаграммы. Предлагается 15 основных типов, у каждого из которых есть еще подтипы. Для круговой диаграммы берутся значения одного наименования: одной строки или одного столбца (такие значения одного наименования называются категорией).

3.         Уточните диапазон данных и где они размещены (в строках или столбцах).

4.         Введите общий заголовков диаграммы и подписи осей, если они будут присутствовать в диаграмме.

5.         Определите, как разместить диаграмму: на отдельном листе или вместе с таблицей.

6.         Нажмите Готово.

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

Готовую диаграмму можно отредактировать. Для этого надо

1.        выделить ее,

2.        один раз щелкнув по ней (выделенная диаграмма отмечена черными квадратиками по углам).

3.        теперь ее можно удалить (Delete), двигать мышью по листу в нужное место листа, уменьшать или растягивать за черные квадратики.

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