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

Составьте программу на языке Паскаль для вычисления суммы:
Р = 4 + 7 +10 + 13. . . + K , где P > 4

👇
Увидеть ответ
Ответ:
Шоколадикус
var K, P, i: integer;beginread(K);i := 1;while i < K dobegini := i + 3;P := P + i;end;Print(P);end.

или:

beginvar K := ReadInteger('K:');Print((4+K)/2*((K-4)/3+1));end.

Примеры работ:


Составьте программу на языке Паскаль для вычисления суммы: Р = 4 + 7 +10 + 13. . . + K , где P >
Составьте программу на языке Паскаль для вычисления суммы: Р = 4 + 7 +10 + 13. . . + K , где P >
4,7(46 оценок)
Открыть все ответы
Ответ:
viktoriag373
viktoriag373
04.04.2023
25
[0, 0, "a", 1]
[1, 1, "b", 2]
[1, 2, "bb", 3]
[2, 2, "b", 4]
[1, 3, "bbb", 5]
[2, 3, "bb", 6]
[3, 3, "b", 7]
[1, 4, "", 8]
[2, 4, "bbb", 9]
[3, 4, "bb", 10]
[4, 4, "b", 11]
[1, 5, "", 12]
[2, 5, "", 13]
[3, 5, "bbb", 14]
[4, 5, "bb", 15]
[5, 5, "b", 16]
[0, 6, "aa", 17]
[6, 6, "a", 18]
[6, 7, "aa", 19]
[7, 7, "a", 20]
[6, 8, "aaa", 21]
[7, 8, "aa", 22]
[8, 8, "a", 23]
[5, 9, "baaab", 24]
[9, 9, "b", 25]

s = "aaaab"
n = 0
for r in 0...s.size
    for l in 0..r
        t = s[l..r]
        if t.reverse == t
            n += 1
            p [l,r,t,n]
        end
    end
end
4,6(8 оценок)
Ответ:
Gelag
Gelag
04.04.2023
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.
4,6(95 оценок)
Это интересно:
П
Как безопасно путешествовать по Южной Африке...
К
Как распечатать Google Календарь...
К
Как установить TortoiseSVN и произвести свои первые изменения в репозитарии...
К
Легкий способ - как скопировать музыку с CD в формате MP3...
К
Как подключиться к прокси–серверу: шаг за шагом руководство?...
В
Избегайте обидных фраз во время ссор между супругами: советы психологов...
К
Как удалить старые сообщения в WhatsApp...
В
Как отказаться от мысли об измене партнеру...
15.01.2022
Как довольствоваться тем, что у вас есть...
К
Как победить Анкано в Skyrim...
Новые ответы от MOGZ: Информатика
780613
780613
03.06.2020
Расставьте приведённые строки в такой последовательности, чтобы получился общий вид программы на языке Паскаль. В ответе запишите последовательность букв — обозначений...
Лллиззза
Лллиззза
28.12.2021
Какое целое число должно быть записано в ячейке A1, чтобы построенная после выполнения вычислений диаграмма по значениям диапазона ячеек A2:С2 соответствовала рисунку?...
Kostya200601
Kostya200601
25.02.2022
Описать каждую строку комментарием Pascal abc​...
savaam1
savaam1
26.06.2021
Составить программу проверяющую верно ли утвеждение что введенное вами целое число делится без остатка на 3! ( это )...
светульь
светульь
15.06.2021
Составьте программу на языке паскаль найти значение х и у если х=2а квадрат + b а, y= 2b квадрат+ а...
Gous55
Gous55
04.05.2023
Сравнить: а) 7 и корень48 б) 2 корень3 и 3корень2...
aismayilova1
aismayilova1
04.05.2023
Храни меня, мой талисман. проснитесь, рощи и поля. продлись, продлись очарованье. в море царевич купает коня, слышит: царевич, взгляни на меня! шумите, осыпайтесь...
ala4ka
ala4ka
04.05.2023
Найдите произведение (-29 1/3)×0; 0×(-6 5/8)...
Магомед05111
Магомед05111
04.05.2023
Найдите значение произведения -15*(-6),2*(-*(-7) -27*0,24*(-.8*6, 11*(-0..8*(-*0.81,-0.3*(-40)...
9999Ksenya999
9999Ksenya999
04.05.2023
1. выберите правильное продолжение предложения. услышав свою фамилию, * ему стало страшно. он вздрогнул. его охватила паника. с ним случилась истерика. 2. в каком...

MOGZ ответил

Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
О НАС
ПОМОЩЬ
App
.
.
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ