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

Дано натуральное число n, написать программу, которая выводит на экран последовательность квадратов чисел от 1 до n.

👇
Ответ:
nosovadascha20
nosovadascha20
21.01.2022

Program Pr1;
uses crt;
var i,n,p:integer;
Begin
clrscr;
readln(n);
for i:=1 to n do writeln(sqr(i));
end.

4,4(57 оценок)
Открыть все ответы
Ответ:
Mei29
Mei29
21.01.2022

PascalABC.NET 3.7:

##var sumOfAP := function(a1, an, d: real):real → (a1 + an)/2*((an - a1)/d+1);var (a, b) := ReadInteger2('Введите a и b:');var sE := sumOfAP(a + a mod 2, b - b mod 2, 2);var sO := sumOfAP(a + 1 - a mod 2, b - 1 + b mod 2, 2);Print('Результат:', sE - sO)

Пояснение:

Используется формула для нахождения суммы первых n членов арифметической прогрессии:  S = \frac{a_1 + a_n}{2} * (\frac{a_n - a_1}{d} + 1) , где a_1 — первый член прогрессии, a_n — последний член, d —разность прогрессии.

sumOfAP -- функция расчёта суммы арифметической прогрессии.(a, b) -- вводимые числа.ReadInteger2(prompt) -- выводит приглашение к вводу prompt и возвращает кортеж из двух значений типа integer, введенных с клавиатуры.sE и sO -- "sum of Even" и "sum of Odd", сумма чётных и сумма нечётных соответственно.Print -- выводит значения на экран, после каждого значения выводит пробел.
Маша любит четные числа, а миша нечетные. поэтому они всегда радуются, когда встречают числа, которы
Маша любит четные числа, а миша нечетные. поэтому они всегда радуются, когда встречают числа, которы
Маша любит четные числа, а миша нечетные. поэтому они всегда радуются, когда встречают числа, которы
4,8(73 оценок)
Ответ:
RasDua
RasDua
21.01.2022

Объяснение:

Sub Summa

Dim A As Long, B As Long, Schet As Long, Snech As Long

Dim Razn As Long, i As Long

Rem Тип Long включает целые числа от -2*10^9 до 2*10^9

Input "A = ", A, "B = ", B ' Вводим числа А и В

Schet = 0 ' Сумма четных чисел

Snech = 0 ' Сумма нечетных чисел

If A Mod 2 = 0 Then ' Если А четное

   For i = A To B Step 2 ' Перебираем четные числа от А до В

       Schet = Schet + i ' Прибавляем к сумме четных чисел

   End For

   For i = A + 1 To B Step 2 ' Перебираем нечетные числа от А до В

        Snech = Snech + i ' Прибавляем к сумме нечетных чисел

   End For

Else ' Иначе, если А нечетное

   For i = A + 1 To B Step 2 ' Перебираем четные числа от А до В

       Schet = Schet + i ' Прибавляем к сумме четных чисел

   End For

   For i = A To B Step 2 ' Перебираем нечетные числа от А до В

        Snech = Snech + i ' Прибавляем к сумме нечетных чисел

   End For

End If

Razn = Schet - Snech ' Разность между четной и нечетной суммой

Print Razn ' Выводим разность

End Sub

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