Var
n, i: Integer;
s: Real;
begin
Write('Сколько слагаемых? ');
readln(n);
for i := 1 to n do
s := s + 1 / (i * (i + 1) * (i + 2));
WriteLn('Сумма ряда = ', s);
end.
Ввод клавиатура мыш
вывод сканер принтер
модерн не к чему не относится вот
===== PascalABC.NET =====
begin
var (a, b) := ReadReal2('Введите значения a и b:');
if a = 0 then
if b = 0 then
Println('Решений бесконечно много')
else
Println('Решений нет')
else
Println('x =', -b / a)
end.
Программа генерирует массив от 10 до 50. Потом выводит числа из этого массива кратные 10.