<em>// PascalABC.NET 3.3, сборка 1561 от 02.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Range(-40,40,14).Select(x->x/10).Tabulate(x->x*x+2).Println;
Range(-4,4).Tabulate(x->x*x+2).Println;
end.
<u>Результат</u>
(-4,18) (-2.6,8.76) (-1.2,3.44) (0.2,2.04) (1.6,4.56) (3,11)
(-4,18) (-3,11) (-2,6) (-1,3) (0,2) (1,3) (2,6) (3,11) (4,18)
Плюсы:Если пишешь конспект,и т.д, то можно его написать в электронном виде,на компьютер можно установить игры и это буднт развлечением,на компьютер можно хранить важные документы,гапример в отднльной папке,а на папку поставить пароль,и они никуда не пропадут.
Минусы:портит зрение,жрет много электричества,игры иногда зптягивают и вызывают зависимость
почему бы тебе не закинуть все в одно задание?)
не первый раз тебе пишу уже)
program p_4;
var
i, n, count: word;
begin
readln(n);
count := 0;
for i := 1 to n do begin
if n mod i = 0 then inc(count)
end;
writeln(count)
end.