Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var n,z: longint;
begin
read(n);
z: =abs(n);
z: =z-2;
writeln(z);
end.
а столбчатая диаграмма
б график
в ярусная диаграмма
г областная диаграмма
дкруговая диаграмма
2048 бит : 8: 1024= 0.25 кбайт
ошибка в том что натуральный логарифм (-1) не существует
program summa; uses crt; var n,i: integer; s: real;
p1,p2: integer; begin clrscr; writeln ('vvedite n'); readln (n); s: =0;
p1: =-1;
p2: =2; for i: =1 to n do
begins: =s+p1/p2;
p1: =-p1;
p2: =p2*2;
end; writeln ('s=', s); readln; end.
Популярные вопросы