icefice0
20.02.2023 09:04

Модель какого интрумента создал Р. Дж. Хиллан, старшеклассник из Энтерпрайза? Верно ли, что созданную модель не стали распечатывать на 3D принтере?
d) Можно ли утверждать, что использование статьи На борту МКС
напечатали инструмент, придуманный школьником
является плагиатом?

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
121517
24.01.2020 14:48

Плата с электронной схемой управления:контроллер

протирать монитор нужно: специально чистящей жидкостью

BIOS находится в: в постояно-запоминающем устройстве (ПЗУ)

Каталог - это:специальное место на диске, в котором хранятся имена файлов, сведения о размере файлов, времени их последнего обновления, атрибуты файлов

Отличие команды «Сохранить как» от «Сохранить»:позволяет сохранить файл под другим именем и в другом месте

Диапазон – это: совокупность клеток, образующих в таблице область прямоугольной формы

Активная ячейка – это ячейка:для выполнения ввода данных

База данных – это:совокупность взаимосвязанных данных с общими принципами описания, хранения и обработки данных

Реляционная база данных - это:БД, в которой информация организована в виде прямоугольных таблиц

С графического редактора Paint можно:создавать и редактировать простые графические изображения

Объяснение:

0,0(0 оценок)
Ответ:
megamozg42
26.03.2023 19:45
Var
    N, s, i: Integer;
    s1: real;

begin
    readln(N); {общий ввод для всех задач}
    
    if N < 0 then
        writeln('Задача 1. N=', 0)
    else writeln('Задача 1. N=', N + 4);
    
    s := 0;
    for i := 1 to n do
        s := s + i;
    writeln('Задача 7. 1+2+3+…+N=', s);
    
    write('Задача 9. Последовательность от N до 1 = ');
    for i := n downto 1 do
        write(i, ' ');
    writeln();
    
    s1 := 0;
    for i := 1 to n do
        s1 := s1 + i / 10;
    writeln('Задача 12. 0,1+0,2+0,3+..+N/10=', s1);
    
    write('Задача 13. Последовательность квадратов от 1 до N = ');
    for i := 1 to n do
        write(i * i, ' ');
    writeln();
    
    write('Задача 14. Последовательность первых N нечетных чисел = ');
    for i := 1 to n do
        write(2 * i - 1, ' ');
    writeln();
    
    if N > 0 then
        writeln('Задача 20. N степень 3 = ', frac(ln(n) / ln(3)) = 0);
    
    s := 0;
    for i := 1 to n do
        if n mod i = 0 then
            s := s + i;
    writeln('Задача 24. Сумма всех натуральных делителей числа N (сключая 1 и N) = ', s);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота