Решение задач - в прилагаемом файле. Решение приводится, что называется, "в лоб", то есть без оптимизации (такого в условиях нет). Это в первую очередь, относится к 1 задаче, хотя и остальные можно улучшить, если потребуется.

0 0

4 года назад

1.дано действительное число x и целое число n вывести N первых челнов арифметическойкой прогрессии и найти сумму ее первых члено

Маргевичус

Универсальное решение

var
    a, d, s: real;
    i, n: integer;

begin
    writeln('Введите х, разность и n');
    readln(a, d, n);

    s := a;
    for i := 2 to n do
    begin
        a := a + d;
        s := s + a;
    end;

    writeln(s);
end.

0 0

4 года назад

Назовите некоторые имена вирусов и как они действуют

катя швырева

Да нроил ьиь. блмрлиммть

0 0

4 года назад

Правильно сидеть за компьютерном столом в классе

annastruc

Не носится по кабинету, а то снесешь комп и заставят платить)

0 0

3 года назад

Прочитать ещё 2 ответа