Var p,a:integer;
begin
writeln('Введи сторону');
readln(a);
p:=4*a;
writeln(p);
end.
----------
var s,a:integer;
begin
writeln('Введи сторону');
readln(a);
s:=a*2;
writeln(s);
end.
Var x,y:real;
begin
read (x,y);
if (x<0) and (y<0) then writeln (abs(x),' ',abs(y)) else
if ((x<0) and (y>=0)) or ((y<0) and (x>=0)) then writeln (x+27,' ',y+27) else
if (x>=0)and (y>=0) then writeln (x-20,' ',y-20);
end.
Форматирование текста - изменение размера шрифта, положения относительно страницы, начертания ( курсив, жирный, обычный) и т.д.
Основная цель - повышение читаемости и наглядности текста.<span />
4)Правильный ответ под номером 4.Расшифровывается как ИТЯ либо ИТВВ
5) 2*2*2=8
1) Маска подсети: 11111111.11111111.11110000.00000000