Program lol(input, output);
var x, y, z:real;
begin
read (x, y);
if x <> y then
y:=x*y;
else
begin
x:=x/2;
y:=y/2;
end;
writeln ('x=', x, 'y=', y, 'z=', z);
writeln ('ЗАДАЧА РЕШЕНА');
end.
TEMPERATURA[1]= -19
TEMPERATURA[2]= -19
TEMPERATURA[3]= -10
TEMPERATURA[4]= 0
TEMPERATURA[5]= 11
TEMPERATURA[6]= 15
TEMPERATURA[7]= 21
TEMPERATURA[8]=
22
TEMPERATURA[9]=12
TEMPERATURA[10]=6
TEMPERATURA[11]=-3
TEMPERATURA[12]=-10
К форматированию относятся все изменения связанные с форматом по определенному образцу, или изменения структуры текста.
Короче, да, относится.
Program nhogdenie_z;
uses crt;
var x,z:integer;
begin
writeln('Введите x');
readln(x);
if x<5 then
begin
z:=(x^2)-3;
writeln(' Z = ',z);
end;
else
Begin
z:=11*x-4;
writeln('Z = ',z);
end;
readkey;
end.
Program Task;
Var x, Z: Real;
Begin
Write('x = ');
ReadLn(x);
Z := Sqrt(x + 7);
WriteLn('Z = ', Z:5:3);
ReadLn;
End.