<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
SeqGen(ReadInteger, 1, 1, (i, j)-> i + j).Println
end.
<h2>И это - всё !</h2>
Задача №1.
Надо учесть, что при x = -1 будет ошибка
Задача №2.
Не разобрал условие (((
//Pascal. Task.1
var x,y:real;
begin
repeat
readln(x);
until x<>-1;
y:=sqrt(x*x*x*x/2+2*x/(x+1);
writeln(y);
end.
1. Слева устройство вывода, снизу процессор.
2. Клавиатура, принтер.
3. Устройства ввода: 2,3 Вывода: 1,4
4. 1)Веб-камера 2)Проектор
V104:=O87/P17
Если таблицы нет, то тогда вот ответ