profile
Опубликовано 5 лет назад по предмету Информатика от FixF0X

Pascal ABC

Найти сумму квадратов нечётных чисел: 11²+13²+15²+17²+19²

  1. Ответ
    Ответ дан ussrex

    program sqrsum;

    var sum,a,b,i:integer;

    begin cls;

    sum:=0;

    write('Введите начальное нечетное число ');

    readln(a);

    write('Введите конечное нечетное число ');

    readln(b);

    write('Сумма квадратов нечетных чисел от ',a,' до ',b,' равна ');

    repeat

    sum:=sum+sqr(a);

    a:=a+2

    until a>b;

    writeln(sum)

    end.

    ussrex

    Вот тебе универсальное решение на ABC Pascal, которое поможет посчитать сумму квадратов нечетных чисел в любом диапазоне (можно и четные посчитать)

Самые новые вопросы